这是
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