Программа зависает при выполнении WMI-запроса на получения состояния службы - VB
Формулировка задачи:
Доброго времени суток.
Столкнулся с такой проблемой - когда я пытаюсь получить информацию о состоянии службы на ПК через WMI-запрос (код ниже) программа зависает и перестаёт подавать какие-либо признаки жизни. Программа сделана как модуль в xls-файле (Excel 2007). При зависании Excel начинает выдавать сообщения "Microsoft Office ожидает завершения OLE-операции", но при этом ничего не происходит. К зависанию приводит выполнение строки :
т.е. зависает именно в сам момент получения информации о состоянии службы на ПК
С помощью этой процедуры проверял службы на ~6000 компьютерах - но на 5-6 ПК программа зависает и я не могу понять в чём дело. Если я подключаюсь к этим ПК через консоль управления компьютером - никаких проблем не возникает, консоль открывается, работает, показывает службы - всё как надо. А получение этой же информации через WMI-запрос приводит к зависонам. Есть мысли с чем это может быть связано?
Код процедуры получения информации о состоянии службы :
Столкнулся с такой проблемой - когда я пытаюсь получить информацию о состоянии службы на ПК через WMI-запрос (код ниже) программа зависает и перестаёт подавать какие-либо признаки жизни. Программа сделана как модуль в xls-файле (Excel 2007). При зависании Excel начинает выдавать сообщения "Microsoft Office ожидает завершения OLE-операции", но при этом ничего не происходит. К зависанию приводит выполнение строки :
т.е. зависает именно в сам момент получения информации о состоянии службы на ПК
С помощью этой процедуры проверял службы на ~6000 компьютерах - но на 5-6 ПК программа зависает и я не могу понять в чём дело. Если я подключаюсь к этим ПК через консоль управления компьютером - никаких проблем не возникает, консоль открывается, работает, показывает службы - всё как надо. А получение этой же информации через WMI-запрос приводит к зависонам. Есть мысли с чем это может быть связано?
Код процедуры получения информации о состоянии службы :
Решение задачи: «Программа зависает при выполнении WMI-запроса на получения состояния службы»
textual
Листинг программы
Set objSWbemObject = GetObject("WinMgmts://Server/Root/CIMV2:Win32_Service.Name='lanmanserver'")
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д