Программа зависает при выполнении WMI-запроса на получения состояния службы - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток.
Столкнулся с такой проблемой - когда я пытаюсь получить информацию о состоянии службы на ПК через 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'")

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы