vbs 获取计算机安装的软件,急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提示的~~~