Query Eventlog by Timewritten field

[hismail]

I am creating a vb.net service that will run AS SERVICE. There is
actually a timer; so the timer will run every 2 minutes and see if
there are any new ERROR type logs in the APPLICATION logs. And if
there are then it will send an email to me ( or whoever I want to
specify). The thing that I can not figure out is how do I create the
query so it queries only thing in the past 2 minutes. If I take the
TimeWritten out of my query it works fine but pulls are the ERROR logs
from APPLICATION logs. This was orginally created in VBSCRIPT but I
have to write it in VB.NET. Here is the code:
Dim dtmStart, SearchEventStar t
Dim objWMIService, colEvents, objEvent, EventTime
Dim objMessage, eventCounted, objRecordset, dtDate, dtHour
'
------------------------------*------------------------------*----------

Const eMailAddress = "hashim.ism...@ fac.com" ' must be a valid
eMail address!!
Const MinutesToSearch Within = -2 ' look for the event that
triggered me within the last 2 minutes
objMessage = CreateObject("C DO.Message")
'objMessage.Sen der = "NTAdm...@fac.c om"
objMessage.To = eMailAddress
dtmStart = CreateObject("W bemScripting.SW *bemDateTime")
SearchEventStar t = DateAdd("n", MinutesToSearch Within, Now())
dtmStart.SetVar Date(SearchEven *tStart, True)
MsgBox(dtmStart , MsgBoxStyle.Inf ormation)
objWMIService = GetObject("winm gmts:" _
&
"{impersonation Level=impersona *te}!\\.\root\c imv2")
colEvents = objWMIService.E xecQuery _
("Select * from Win32_NTLogEven t Where Logfile =
'Application' AND type = 'ERROR' AND TimeWritten >= '" & dtmStart &
"'")
' Because we go through all recent events, in case of multiple
events within the last 2 minutes, we might mis
' events. That is: within multiple events that occur within the

last 2 minutes, not for all these events an eMail message
' may be generated. This is a trade-off to avoid generating
multiple eMail messages for one particular event within a
' series of events that occured within the last 2 minutes.
For Each objEvent In colEvents
'On Error Resume Next ' Maybe you should uncomment this
line...
objMessage.Text Body = "Category: " & objEvent.Catego ry
EventTime = Mid(objEvent.Ti meWritten, 5, 2) & "/" &
Mid(objEvent.Ti meWritten, 7, 2) & "/" & _
Mid(objEvent.Ti meWritten, 1, 4) & " " &
Mid(objEvent.Ti meWritten, 9, 2) & ":" & _
Mid(objEvent.Ti meWritten, 11, 2) & "." &
Mid(objEvent.Ti meWritten, 13, 2)
objMessage.From = "[e-mail] m"
objMessage.Text Body = objMessage.Text Body & vbCrLf & "Time:

" & EventTime
objMessage.Subj ect = "ERROR Event in " &
objEvent.Source Name & " on " & objEvent.Comput erName & " at " &
EventTime
objMessage.Text Body = objMessage.Text Body & vbCrLf &
"EventID: " & objEvent.EventC ode
objMessage.Text Body = objMessage.Text Body & vbCrLf &
"Descriptio n: " & objEvent.Messag e
objMessage.Text Body = objMessage.Text Body & vbCrLf &
"RecordNumb er: " & objEvent.Record Number
objMessage.Text Body = objMessage.Text Body & vbCrLf &
"SourceName : " & objEvent.Source Name
objMessage.Text Body = objMessage.Text Body & vbCrLf & "Type:

" & objEvent.Type
objMessage.Text Body = objMessage.Text Body & vbCrLf & "User:

" & objEvent.User
objMessage.Send ()
Next