windows-installer – 为什么枚举安装的MSI包这么慢？

这是
question的后续行动.

我正在使用这个稍微修改过的脚本来枚举所有已安装的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机箱需要7s来枚举1400转……叹息

这有什么线索吗？

解决方法

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

如果您需要备用解决方案,请考虑使用“卸载”注册表项构建您自己的产品列表(如您所提及的original question的一个答案中所述).

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

> TechNet VBScript示例：List Installed Software
> Microsoft KB：How to enumerate the software products that can be uninstalled on a computer

要远程执行此操作,请使用WMI注册表类StdRegProv.
TechNet甚至可以方便地提供一个使用StdRegProv来完成您想要的事情的简单示例：
How do I list all the installed applications on a given machine