Chapter 4: Using Advanced WMI Queries 89
SystemBios.v
bs
strComputer = "."
wmiNS = "\root\cimv2"
wmiQuery = "Select
* from win32_SystemBIOS"
Set objWMIService
= GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems
= objWMIService.ExecQuery(wmiQuery,"wql",&h10 + &h20)
For Each objItem in colItems
WScript.Echo "GroupComponent: " &
objItem.GroupComponent
WScript.Echo "PartComponent: " & objItem.PartComponent
WScript.Echo
Next
Error Codes
WMI does not consider it an error for a query to return an empty result set. You might not
think the query was successful, but as far as WMI is concerned, if it runs without errors, the
query is fine. This is just one thing to keep in mind when evaluating error codes returned by
the ExecQuery method. ...