76 Part II: WMI Queries and Events
Next
WScript.Echo
"QUALIFIERS:"
For Each a In objItem.qualifiers_
If IsArray(a) Then
wscript.echo vbtab & a.name&"isan array" & _
vbcrlf & vbtab & "The Properties are: " & Join(a, ",")
Else
WScript.Echo vbtab & a.name&"= "& objItem.qualifiers_.item(a.name)
End If
Next
WScript.Echo
"OBJECT PATH PROPERTIES: "
With objItem.Path_
strProperties
= "displayname " & .displayname & vbcrlf
strProperties = strProperties & "is class: " & .isClass & vbcrlf
strProperties = strProperties & "is singleton:"&.IsSingleton & vbcrlf
strProperties = strProperties & "namespace: " & .namespace & vbcrlf
strProperties = strProperties & "parentNamespace: " & .parentNamespace & vbcrlf
strProperties = strProperties & "path:"&.pat