急急。。。vbs读取计算机软件列表

Question

用VBS读取计算机软件列表读如何写急急

Answer 1

注册表
LocalMachine\Software\Microsoft\Windows\CurrentVersion\Uninstall

Answer 2

估计不行, VBS不能用API, 得通过activex来做这事

Answer 3

我写了一个，在 VB 下没问题，但保存成 VBS 后运行，360说是木马，莫名其妙。    Set objReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
    
    sSubKeyName = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    
    objReg.EnumKey &H80000002, sSubKeyName, sNames
    
    For Each subkey In sNames
        If Left(subkey, 1) <> "{" And Left(subkey, 2) <> "KB" Then
            lReturnCode = objReg.GetStringValue(hDefKey, sSubKeyName & "\" & subkey, "DisplayName", sValue)
            If lReturnCode = 0 And Err.Number = 0 Then
                s = s & sValue & VbCrLf
            End If
        End If
    Next
    WScript.Echo s
可列出计算机软件列表。

Answer 4

    Set objReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
    
    sSubKeyName = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    
    objReg.EnumKey &H80000002, sSubKeyName, sNames
    
    For Each subkey In sNames
        If Left(subkey, 1) <> "{" And Left(subkey, 2) <> "KB" Then
            lReturnCode = objReg.GetStringValue(&H80000002, sSubKeyName & "\" & subkey, "DisplayName", sValue)
            If lReturnCode = 0 And Err.Number = 0 Then
                s = s & sValue & VbCrLf
            End If
        End If
    Next
    Debug.Print s