You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
965 B
35 lines
965 B
Set Service = GetObject("winmgmts:")
|
|
|
|
On Error Resume Next
|
|
|
|
Set aClass = Service.Get("Win32_BaseService")
|
|
|
|
for each Property in aClass.Properties_
|
|
if VarType(Property) = vbNull then
|
|
WScript.Echo Property.Name, Property.Origin, Property.IsLocal, Property.IsArray
|
|
else
|
|
WScript.Echo Property.Name, Property, Property.Origin, Property.IsLocal, Property.IsArray
|
|
end if
|
|
|
|
for each Qualifier in Property.Qualifiers_
|
|
if IsArray(Qualifier) then
|
|
Dim strArrayContents
|
|
V = Qualifier
|
|
strArrayContents = " " & Qualifier.Name & " {"
|
|
For x =0 to UBound(V)
|
|
if x <> 0 Then
|
|
strArrayContents = strArrayContents & ", "
|
|
ENd If
|
|
strArrayContents = strArrayContents & V(x)
|
|
If Err <> 0 Then
|
|
WScript.Echo Err.Description
|
|
Err.Clear
|
|
End If
|
|
Next
|
|
strArrayContents = strArrayContents & "}"
|
|
WScript.Echo strArrayContents
|
|
else
|
|
WScript.Echo " ", Qualifier.Name, Qualifier
|
|
end if
|
|
Next
|
|
Next
|