急vbs读取计算机软件列表,该如何处理

急急。。。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提示的~~~