[решено] Нужен скрипт для мониторинга событий, с условием.

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Нужен скрипт для мониторинга событий, с условием.

Нужен скрипт, который будет мониторить, за событиями.

Код:

Например, событие номер "7001"

Если номер события 7001 появился в списке, тогда сразуже выводится сообщение.

Код:

msg * /W "Номер события (7001) появился в журнале событий."

eventquery /l System

Вот, из этой таблицы, нужно мониторить, только за столбиком события, я этот столбик выделил, ЖИРНЫМ ширифтом, неважно, ошибка это или нет, номер события, я укажу сам.

Код:

------------------------------------------------------------------------------

  Перечисление событий в журнале 'system' для узла 'Мой комп'

------------------------------------------------------------------------------

 Тип           Событие     Дата и время             Источник         ComputerName

 ------------- ------ ------------------------ -----------------    --------------

 Ошибка         7001     01.01.2000 10:10:10   Service Control M      Мой комп

P.S. Скрипт должен, раз в минуту, обновляться

всё-таки это больше задача для WSH, пример на VBS:

Код:

Set WMI = GetObject("winmgmts:{impersonationLevel=Impersonate,(Security)}!\\.\root\cimv2")

Set EVT = WMI.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent" &_

" WHERE TargetInstance ISA ""Win32_NTLogEvent"" AND TargetInstance.EventCode=7001" &_

" GROUP WITHIN 60 BY TargetInstance.EventCode")



While vbTrue

  Set obj = EVT.NextEvent

  WScript.Echo "Номер события (7001) появился в журнале событий "& obj.NumberOfEvents & " раз."

WEnd

ругается на 2-ю строку, отказано в доступе, источник SWbemServicesEx

смотрю и без vbs можно решить проблему.

Код:

for /f "skip=9" %%i in ('cscript %windir%\system32\eventquery.vbs /FI "Id eq 7001" /L system') do (msg * Ошибка 7001 появилась в файле журнала. & goto :next)

:next

amel27, что с vbs ? ошибку пишет ((

Цитата:

Цитата root221

отказано в доступе »

да, есть такая проблема в XP (в 2003 нормально), исправил

Цитата:

Цитата root221

смотрю и без vbs можно решить проблему »

дык, это вызов "eventquery.VBS" на предмет наличия событий в журнале и без паузы, простой запрос к журналу можно выполнить без вызова VBS:

Код:

WMIC NTEVENT WHERE "LogFile='System' AND EventCode=7001" Get * /Value

Да хватит некромантией заниматься: в Vista и 7 можно в планировщике заданий указать и отслеживаемое событие и назначить вывод сообщения на экран.

Busla,

У меня комп такие OS не потянет(

amel27, ошибка есть, сообщения нету (

Цитата:

Цитата root221

ошибка есть, сообщения нету »

проверял на XPSP3 RUS и на XP Virtual Box (W7) - под админом ошибки доступа нет.
Для Event Id 26, запускаем скрипт:

Код:

WScript Test.VBS

в течение минуты выполняем несколько раз команду:

Код:

NET SEND %ComputerName% "Test Message"

примерно через минуту появляется сообщение со счетчиком