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.
25 lines
833 B
25 lines
833 B
on error resume next
|
|
Set Locator = CreateObject("WbemScripting.SWbemLocator")
|
|
Set Services = Locator.ConnectServer(, "root\CIMV2")
|
|
|
|
If IsObject(Services) Then
|
|
Set objSet = Services.InstancesOf("Win32_OperatingSystem")
|
|
For Each obj In objSet
|
|
|
|
WScript.Echo (obj.Path_)
|
|
Set objItem = objSet.Item(obj.Path_)
|
|
If Err = 0 Then
|
|
If objItem.Path_ <> obj.Path_ Then
|
|
WScript.Echo "SWbemObjectSet.Item is accessible but incorrect -> Error " & " (0x" & Hex(Err) & ")"
|
|
Else
|
|
WScript.Echo "PASS"
|
|
End If
|
|
Else
|
|
WScript.Echo "SWbemObjectSet.Item not accessible -> Error: " & Err.Description & " (0x" & Hex(Err) & ")"
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
Err.Clear
|
|
|
|
' TODO - add Item tests for results sets from UMI objects
|