This csv parser can parse eventvwr events..

Dim openfile
Dim strnextline
Dim intsize
Dim i
intsize = 0
Const forreading = “1”
csvpath = “c:\applog.csv”
Searchstring = “,”
Errorcode = “1054”

Set fso = WScript.CreateObject(“Scripting.Filesystemobject”)
Set openfile = fso.OpenTextFile(csvpath,forreading)
strnextline = openfile.ReadLine

Do Until openfile.AtEndOfStream
strnextline = openfile.ReadLine
If InStr(strnextline,Searchstring)Then
If InStr(strnextline,Errorcode)Then
ShowMessage(Split(strnextline,”,”))
WScript.Echo(“all done”)
End If
End If
Loop
openfile.Close

Public Sub ShowMessage(newarray)
WScript.Echo “Date:” & newArray(0)
WScript.Echo “Time:” & newarray(1)
WScript.Echo “Source:” & newArray(2)& ” “& newArray(3)
WScript.Echo “Server:” & newArray(7)
WScript.Echo “Message1:” & newArray(8)
WScript.Echo ” ”
End Sub