WMI query for events

[HankC]

This code snippet fails with 'Specified cast is not valid' when running
the query to get application warning events in the last 10 days...

What am I doing wrong?
HankC
Dim objWMIService As Object

objWMIService =
GetObject("winm gmts:{impersona tionLevel=imper sonate}!\\.\roo t\cimv2")

Dim colEvents As Collection

strquery = "Select * from Win32_NTLogEven t Where Logfile =
'Application' and Type = 'Warning' and TimeWritten >=
'20050916143529 .000000-300'"
'''the next line fails: Specified cast is not valid.
colEvents = objWMIService.E xecQuery(strque ry, "WQL",
wbemFlagReturnI mmediately + wbemFlagForward Only)

Dim objEvent As Object
For Each objEvent In colEvents
TextBox1.Text = TextBox1.Text & objEvent.Type & vbVrLf
Next
End If

[Ken Tucker [MVP]]

Hi,

Here is how I would do that.

Dim moReturn As Management.Mana gementObjectCol lection

Dim moSearch As Management.Mana gementObjectSea rcher

Dim mo As Management.Mana gementObject

moSearch = New Management.Mana gementObjectSea rcher("Select * from
Win32_NTLogEven t Where " & _

"Logfile ='Application' and Type = 'Warning' and TimeWritten

='200509161435 29.000000-300'")
moReturn = moSearch.Get

For Each mo In moReturn

Dim strOut As String

strOut = String.Format(" Date {0} Message {1}", mo("TimeWritten "),
mo("Message"))

Trace.WriteLine (strOut)

Next

Ken

-------------------

"HankC" <cl****@missour i.edu> wrote in message
news:11******** **************@ g49g2000cwa.goo glegroups.com.. . This code snippet fails with 'Specified cast is not valid' when running
the query to get application warning events in the last 10 days...

What am I doing wrong?
HankC
Dim objWMIService As Object

objWMIService =
GetObject("winm gmts:{impersona tionLevel=imper sonate}!\\.\roo t\cimv2")

Dim colEvents As Collection

strquery = "Select * from Win32_NTLogEven t Where Logfile =
'Application' and Type = 'Warning' and TimeWritten >=
'20050916143529 .000000-300'"
'''the next line fails: Specified cast is not valid.
colEvents = objWMIService.E xecQuery(strque ry, "WQL",
wbemFlagReturnI mmediately + wbemFlagForward Only)

Dim objEvent As Object
For Each objEvent In colEvents
TextBox1.Text = TextBox1.Text & objEvent.Type & vbVrLf
Next
End If

[HankC]

Ken Tucker [MVP] wrote:

Hi,

Here is how I would do that.

Dim moReturn As Management.Mana gementObjectCol lection

Dim moSearch As Management.Mana gementObjectSea rcher

Dim mo As Management.Mana gementObject

moSearch = New Management.Mana gementObjectSea rcher("Select * from
Win32_NTLogEven t Where " & _

"Logfile ='Application' and Type = 'Warning' and TimeWritten

>='200509161435 29.000000-300'")

moReturn = moSearch.Get

For Each mo In moReturn

Dim strOut As String

strOut = String.Format(" Date {0} Message {1}", mo("TimeWritten "),
mo("Message"))

Trace.WriteLine (strOut)

Next

Ken

-------------------

"HankC" <cl****@missour i.edu> wrote in message
news:11******** **************@ g49g2000cwa.goo glegroups.com.. .

This code snippet fails with 'Specified cast is not valid' when running
the query to get application warning events in the last 10 days...

What am I doing wrong?
HankC
Dim objWMIService As Object

objWMIService =
GetObject("winm gmts:{impersona tionLevel=imper sonate}!\\.\roo t\cimv2")

Dim colEvents As Collection

strquery = "Select * from Win32_NTLogEven t Where Logfile =
'Application' and Type = 'Warning' and TimeWritten >=
'20050916143529 .000000-300'"
'''the next line fails: Specified cast is not valid.
colEvents = objWMIService.E xecQuery(strque ry, "WQL",
wbemFlagReturnI mmediately + wbemFlagForward Only)

Dim objEvent As Object
For Each objEvent In colEvents
TextBox1.Text = TextBox1.Text & objEvent.Type & vbVrLf
Next
End If

Thanks, Ken. That did the trick...