Доброго времени суток.
Столкнулся с такой проблемой - когда я пытаюсь получить информацию о состоянии службы на ПК через WMI-запрос (код ниже) программа зависает и перестаёт подавать какие-либо признаки жизни. Программа сделана как модуль в xls-файле (Excel 2007). При зависании Excel начинает выдавать сообщения "Microsoft Office ожидает завершения OLE-операции", но при этом ничего не происходит. К зависанию приводит выполнение строки :
1.
Set objShare_Sweeper = objWMIService.Get("Win32_Service.Name='" & ServiceName & "'")
т.е. зависает именно в сам момент получения информации о состоянии службы на ПК
С помощью этой процедуры проверял службы на ~6000 компьютерах - но на 5-6 ПК программа зависает и я не могу понять в чём дело. Если я подключаюсь к этим ПК через консоль управления компьютером - никаких проблем не возникает, консоль открывается, работает, показывает службы - всё как надо. А получение этой же информации через WMI-запрос приводит к зависонам. Есть мысли с чем это может быть связано?
Код процедуры получения информации о состоянии службы :
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub service_sweeper(PCname As String)
Dim ServiceName As String
Dim ServiceErrName As String
Dim ErrNumber As Long
Dim ErrDescription As String
On Error GoTo ErrorProcessing
Set objWMIService = GetObject("winmgmts:\\" & PCname & "\root\CIMV2")
ServiceName = "CryptSvc"
Set objShare_Sweeper = objWMIService.Get("Win32_Service.Name='" & ServiceName & "'")
If IsEmpty(objShare_Sweeper) = False Then
ThisWorkbook.Worksheets(1).Cells(RowPosition, 6) = objShare_Sweeper.Properties_.Item("State")
ThisWorkbook.Worksheets(1).Cells(RowPosition, 7) = objShare_Sweeper.Properties_.Item("StartMode")
End If
Set objShare_Sweeper = Nothing
Set objWMIService = Nothing
Exit Sub
ErrorProcessing:
ErrNumber = Err.Number
ErrDescription = Err.Description
Call ServiceErrorProcessing(ServiceName, ErrNumber, ErrDescription)
Resume Next
End Sub
