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

相关文章

发表回复

您的电子邮箱地址不会被公开。