运行VBScript以枚举软件时出现错误：0x80041001

Question

当我在windows8.1机器上运行VBScript时，出现以下错误。相同的代码在其他计算机上成功运行。

Error: 0x80041001
Code: 80041001
Source: (null)
The error line is 'For each ...'

代码：

'obtain collection of Windows Installer packages

Set MSIapps = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select * from Win32_Product where Name like 'Cisco%'")

'enumerate the names of the packages in the collection

For each App in MSIapps 

    version =  App.Version
    installDIR = App.InstallLocation


Next

Answer 1

理论上，Starting and Stopping the WMI Service：

  

WMI作为服务运行，显示名称为＆＃34; Windows Management   仪表＆＃34;和服务名称＆＃34; winmgmt＆＃34;。 WMI运行   在LocalSystem帐户下自动启动系统。如果是WMI   没有运行，它在第一次管理时自动启动   应用程序或脚本请求连接到WMI命名空间。

看起来您的winmgmt服务由于某种原因已停止运行。在命令提示符下（以管理员身份运行），输入net start winmgmt并观察输出消息。

将服务配置为使用services.msc自动投放，或按以下步骤操作： Chang Yin的回答WMI corrupt - how to reinstall/repair?。