Ошибка: 0x80041001 при запуске VBScript для перечисления программного обеспечения

Question

Когда я запустил VBScript на компьютере с windows8.1, я получил следующую ошибку. Тот же код успешно работал на других машинах.

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

Теоретически, запуская и останавливая службу WMI:

WMI работает как служба с отображаемым именем "Инструментарий управления Windows" и именем службы "winmgmt". WMI запускается автоматически при запуске системы под учетной записью LocalSystem. Если WMI не запущен, он автоматически запускается, когда первое управляющее приложение или скрипт запрашивает подключение к пространству имен WMI.

Выглядит как твой winmgmt служба перестала работать по какой-то причине. В командной строке (запуск от имени администратора) введите net start winmgmt и смотреть вывод сообщения.

Настройте службу для автоматического запуска с services.msc или следуйте, например , ответу Чан Инь на WMI поврежденный - как переустановить / восстановить?,