OpenService не возвращает запущенный сервис - VB

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

Private Type SRV_STATUS
    dwServiceType As Long
    dwCurrentState As Long
    dwControlsAccepted As Long
    dwWin32ExitCode As Long
    dwServiceSpecificExitCode As Long
    dwCheckPoint As Long
    dwWaitHint As Long
End Type
 
Dim SCM As Long, hService As Long, SST As SRV_STATUS
 
For i = 1 To watched
    machine_name = watch_this(1, i)
    service_name = watch_this(2, i)
    SCM = OpenSCManager(machine_name, "ServicesActive", 4)
    If SCM = 0 Then GoTo 1                                ' Next i
    hService = OpenService(SCM, service_name + Chr(0), SERVICE_QUERY_STATUS)
    If IsEmpty(hService) Then GoTo 1                      ' Next i
    a = QueryServiceStatus(hService, SSS)
    stat = SSS.dwCurrentState
    ...

возвращает stat = 0, хотя реально сервис запущен (т.е. 4)

Решение задачи: «OpenService не возвращает запущенный сервис»

textual
                            Листинг программы 
                        

                            machine_name = watch_this(1, i)
service_name = watch_this(2, i)
SCM = OpenSCManager(machine_name, vbNullString, 4)
b1 = Err.LastDllError
If SCM = 0 Then GoTo 1
hService = OpenService(SCM, service_name, SERVICE_QUERY_STATUS)
b2 = Err.LastDllError
'Stop
If IsEmpty(hService) Then GoTo 1
a = QueryServiceStatus(hService, SSS)
b3 = Err.LastDllError
'Stop
stat = SSS.dwCurrentState
Stop
                        