为什么枚举安装的MSI包这么慢？

这是这个问题的后续行动.

我正在使用这个稍微修改过的脚本来枚举所有已安装的MSI包:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate}!\\" & _
    strComputer & _
    "\root\cimv2")

Set colSoftware = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Product")   

If colSoftware.Count > 0 Then
    For Each objSoftware in colSoftware
        WScript.Echo objSoftware.Caption & vbtab & _
        objSoftware.Version
    Next
Else
    WScript.Echo "Cannot retrieve software from this computer."
End If

然而令人惊讶的是它的糟糕表现.在我的XP盒子上枚举34个已安装的MSI软件包需要3到5分钟!

相比之下,坐在旁边的Linux机箱需要花费7秒来计算1400+ RPM ... 叹息

这有什么线索吗？

极端缓慢是枚举Win32_Products的已知/常见问题

如果您需要备用解决方案,请考虑使用"卸载"注册表项构建您自己的产品列表(如您所提到的原始问题的答案中所述).

枚举卸载的一些常规参考:

TechNet VBScript示例:列出已安装的软件

Microsoft KB:如何枚举可以在计算机上卸载的软件产品

要远程执行此操作,请使用WMI注册表类StdRegProv.TechNet甚至可以方便地提供一个使用StdRegProv来完成您想要的事情的简单示例: 如何列出给定计算机上所有已安装的应用程序