[amel27]

всё-таки это больше задача для 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

[root221]

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

[root221]

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

Код:

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

[root221]

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

[amel27]

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

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

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

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

Код:

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

[Busla]

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

[root221]

Busla,

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

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

[amel27]

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

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

Код:

WScript Test.VBS

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

Код:

NET SEND %ComputerName% "Test Message"

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