[решено] скрипт обработки лог файлов и отправки уведомлений по почте

[mrxMonster]

Спасибо огромнейшее! Всё работает как надо!
Немного о том для чего это или вернее к чему это нужно было:
На нескольких компьютерах нашего офиса был поднят программный рейд-1 на WINXP.
Для мониторинга его состояния я кое как состряпал скрипт, смотрящий системный журнал и вытаскивающий оттуда состояние зеркал:
Dim fso, ts
Const ForAppending = 8

CompName = server ' Имя или адрес хоста
FileName="C:\raid.log" ' Имя файла лога

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(FileName, ForAppending, True)
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'System' and " _
& "EventCode = '2'")

If colLoggedEvents.count>0 Then
ts.WriteLine(Now & " " & CompName & " " & "Warning RAID:" & colLoggedEvents.Count)
Else
ts.WriteLine(Now & " " & CompName & " " & "OK" )

End if

ts.Close
Set ts = Nothing
Set fso = Nothing

А благодаря вашей помощи, я теперь получаю уведомления по почте!