急急。。。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
