Leaked source code of windows server 2003

19 lines
558 B

  1. <job id="VectorExample">
  2. <reference object="WbemScripting.SWbemLocator" version="1.2"/>
  3. <script language="VBScript">
  4. set l = CreateObject("WbemScripting.SWbemLocator")
  5. ' Start by opening a namespace by default
  6. set o = l.Open("root\cimv2")
  7. WScript.Echo typename(o)
  8. ' Open an object by default
  9. set o = l.Open("root\cimv2:Win32_logicaldisk='C:'")
  10. WScript.Echo typename(o)
  11. ' And force an object to be opened as a scope
  12. set o = l.Open("root\default:__CIMOMIdentification=@", ,,,,,wbemTypeServices)
  13. WScript.Echo typename(o)
  14. </script>
  15. </job>