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

Пишу скрипт 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 минут ?

Спасибо.

1800 = 30 * 60.

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

В какой файл перенаправите вывод:
в том и смотрите.

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

Спасибо.