Есть скрипт для выгрузки сообщений из журнала безопасности windows:
авторOption Explicit
Dim cn, rs, oLocator, oSvc, oColEvents, oColEventLog, Item, oLogFile
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\EventLog.mdb"
cn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = 3
rs.LockType = 3
rs.Open "Events", cn
Set oLocator = CreateObject("wbemScripting.Swbemlocator")
Set oSvc = oLocator.ConnectServer()
Set oColEvents = oSvc.ExecQuery _
("Select * from Win32_NTLogEvent WHERE Logfile = 'system'")
For Each Item In oColEvents
rs.AddNew
rs("CompName") = Item.ComputerName
rs("UserName") = Item.User
rs("EventType") = Item.Type
rs("EventCode") = Item.EventCode
rs("Message") = Item.Message
rs("TimeWritten") = Item.TimeWritten
rs.Update

Next
Set oColEventLog = oSvc.ExecQuery _
("SELECT * FROM Win32_NTLogEvent WHERE Logfile = 'system'")
For Each oLogFile In oColEventLog
Next
WScript.Echo "Done"

Вопрос возможно ли сделать что бы скрипт отбирал определенные события по полю Item.Message?