strComputer="."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set SINK = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
objWMIService.ExecNotificationQueryAsync SINK, "SELECT * FROM __InstanceModificationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Service'"
Set fso = CreateObject("Scripting.FileSystemObject")
Do while 1=1
WScript.Sleep 1000
Loop
'******************************************************************************
Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
If objLatestEvent.TargetInstance.Name="Browser" Then
Set objFile = fso.OpenTextFile("monitor.log", 8, True)
objFile.WriteLine Now & objLatestEvent.TargetInstance.State
objFile.Close
End If
End Suboption explicit
Dim strComputer, objWMIService, colServiceList, objService
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colServiceList = objWMIService.ExecQuery("select State, Status from Win32_Service where Name='MSSQLSERVER'")
For Each objService in colServiceList
Wscript.Echo objService.Name & "=> State: " & objService.State & "; Status: " & objService.Status
NextЕдинственное, не могу сказать какие значения будут у State&Status когда сервис не отвечает(не знаю как смоделировать ситуацию :). Кстати, программа сама является сервисом или "сервис" стартует другое ПО(например, как srvany)? Т.е. когда "режим остается Started, при этом служба перестает работать"("Started" я так понимаю в оснастке управления службами? После нажатия F5 он не меняется?) исполняемый файл службы в процессах остаётся или исчезает?
]]>wmic.exe service <имя службы> get State /valueв тот момент, когда «она … отваливается»?
]]>