WMI query....capture empty collections?

[VulcanJedi]

I have the following lines of code:
the issue is when colleggedEvents is empty and in nothing is returned from the query than the for each loop crashes; is there a way to capture if the query is empty??


Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Application' and " _
& "EventCode = '1106' and Type = 'error'")

For Each objevent In colLoggedEvents


Tranpkp

 

[SkipVought]

Hi,

How 'bout this...

Set colLoggedEvents = objWMIService.ExecQuery _
        ("Select * from Win32_NTLogEvent Where Logfile = 'Application' and " _
            & "EventCode = '1106' and Type = 'error'")
if not colLoggedEvents is nothing then
  For Each objevent In colLoggedEvents
    'do stuff

  next
end if

Skip,

_[red][/red]

 

[VulcanJedi]

no worky; sorry fyi is vbscript...mabye wrong forum

Tranpkp

 

[SkipVought]

This forum is not VB Script.

Skip,

_[red][/red]

 

[PHV]

And what about this ?
If IsArray(colLoggedEvents) Then
For Each objevent In colLoggedEvents
...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[VulcanJedi]

Sorry skip; simply mistake on my favorites bar.
PHV...not dice brother.

Tranpkp

 

[PHV]

Have a look here:

http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_ntlogevent.asp

I guess you should use this:
& "EventCode = 1106 and EventType = 1")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886