Leaked source code of windows server 2003
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.
|
|
'***************************************************************************'This script tests the enumeration of subclasses using XML/HTTP'***************************************************************************On Error Resume Next
Dim objLocatorSet objLocator = CreateObject("WbemScripting.SWbemLocator")
' Replace the first argument to this function with the URL of your WMI XML/HTTP server' For the local machine, use the URL as belowDim objServiceSet objService = objLocator.ConnectServer("[http://localhost/cimom]", "root\cimv2")
for each subclass in objService.SubclassesOf ("cim_UserDevice") WScript.Echo "Subclass name:", subclass.Path_.Classnext
if Err <> 0 Then WScript.Echo Err.Description Err.ClearEnd if
|
