Проверка VBscript на наличие событий при жизни сценария

Question

У меня есть vbScript, который я использую для остановки, запуска и перезапуска сервисов. Это работает, но у меня есть маленький кусочек. Я надеялся, что смогу наблюдать за событиями изменения состояния сервиса (7036) в журнале событий по

StartTime=CDate(Now())

.... service stop/start commands etc

Set colServiceEvents = objWMIService.ExecQuery _
       ("Select * from Win32_NTLogEvent " _
           & "Where Logfile = 'System'" _
           & " and EventCode = '7036'" _
        & " and TimeWritten >'" & StartTime & "'" )

Поиграв в StartTime, я вижу события 7036 за последние несколько минут, но я не вижу событий изменения состояния сервиса в течение жизни скрипта. Я что-то упускаю или это "особенность" Windows?
Чтобы быть понятным, скрипт работает, и я могу проверить состояние по запросу на Win32_Service, но я хотел бы знать для дальнейшего использования. «Существует более 1 способа убрать кошку из VBScript, но большинство из них, похоже, связаны с цепным пистолетом и мясорубкой»

Answer 1

Я думаю, проблема связана со значениями даты и времени.Посмотрите на статью (особенно часть Converting VBScript dates to WMI Dates) из: http://www.aspfree.com/c/a/Windows-Scripting/Working-with-Dates-in-WMI/