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

急急
[解决办法]
注册表
LocalMachine\Software\Microsoft\Windows\CurrentVersion\Uninstall
[解决办法]
我是想用VBS脚本把它列出来
[解决办法]
估计不行, VBS不能用API, 得通过activex来做这事
[解决办法]
我写了一个，在 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

可列出计算机软件列表。
[解决办法]

    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

[解决办法]
对注册表的操作都会被360提示的~~~