0

我想用 VBscript 列出 windows server 2008 R2 上已安装的软件。我想验证必备软件（其中之一是 .NET Framework 3.5.1）。我实际上有两个解决方案，它们都没有显示所有的软件。

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
installedSoftwaresPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

Set objReg = GetObject("winmgmts://./root/default:StdRegProv")

objReg.EnumKey HKLM, installedSoftwaresPath, arrSubkeys
For Each strSubkey In arrSubkeys
    Ret = objReg.GetStringValue(HKLM, installedSoftwaresPath & strSubkey, "DisplayName", SoftwareName)
    If Ret <> 0 Then
    objReg.GetStringValue HKLM, strKey & strSubkey, "QuietDisplayName", SoftwareName       
    End If
    If SoftwareName<> "" Then
        WScript.Echo VbCrLf & "Display Name: " & SoftwareName
    End If
Next

另一种解决方案是这个：

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")

For Each objSoftware in colSoftware
    WScript.Echo objSoftware.Caption
Next

是否可以获取所有已安装的软件？如果不是，我将为每个必备软件制定特定的解决方案。

编辑：我的脚本找到的一些软件：

Microsoft 应用程序错误报告、Microsoft Visual C++ 2008 Redistributable、Microsoft 安全客户端、Adobe Reader

我想找到的：.NET 框架 3.5.1

我想要一个通用的解决方案来找到安装的每个软件。

解决方案：似乎没有通用的方法来检查已安装的软件。我在此路径中找到了 .NET 框架注册表项：

"SOFTWARE\Microsoft\MSBuild\ToolsVersion\v3.5\"
4

1 回答 1

0

如果无法访问您的服务器以查看您正在寻找的软件是如何安装的，我只能猜测您可能会如何修改您的脚本。

但是，除此之外，您可能还应该寻找其他地方：HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\

例如，您可能想查看：

HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall
HKLM\SOFTWARE\Classes\Installer
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData

您可能会在其中一个位置找到您正在寻找的东西。

您可能还想使用 RegEdit 对“.NET Framework 3.5.1”进行“查找”，以查看它是否显示在您可以可靠地找到它的地方。

于 2012-08-09T15:22:49.567 回答