Код скрипта для отслеживания изменений в состоянии служб Windows

[vovikrus]

Пишу скрипт ServiceMonitoring.vbs, который бы раз в 30 минут отслеживал бы изменения
в состоянии служб Windows на компьютере и в случае изменения статуса служб
(например, какая-либо служба была остановлена), выводил бы в стандартную
консоль вывода информацию об имени этой службы и ее текущем состоянии.

Код скрипта ServiceMonitoring.vbs:

Dim oLocator, oSvc, oColServices, oService

Set oLocator = CreateObject("wbemScripting.Swbemlocator")

Set oSvc = oLocator.ConnectServer()

Set oColServices = oSvc.ExecNotificationQuery _

("Select * from __instancemodificationevent " _

& "within 10 where TargetInstance isa 'Win32_Service'")

Do

Set oService = oColServices.NextEvent

WScript.Echo oService.TargetInstance.Name & vbTab & vbTab & _ oService.TargetInstance.State

Loop

Где правильно указать период - 30 минут ?

Спасибо.

[Iska]

… within 1800 …
1800 = 30 * 60.

[vovikrus]

Спасибо. И, {не скромный} вопрос, а где просмотреть файл отчета ? (Результат)? :dont-know

[Iska]

а где просмотреть файл отчета ? »
В какой файл перенаправите вывод:
cscript.exe //nologo "Script.vbs" >"Output.log"
в том и смотрите.

[vovikrus]

А как исправить, что бы файл отчета был на диске С (где папки Progr Files, Windows and ohers) ?

[Iska]

cscript.exe //nologo "Script.vbs" >"%SystemDrive%\Output.log"

[vovikrus]

Спасибо.