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.

19 lines
1.2 KiB

  1. on error resume next
  2. Set locator = CreateObject("WbemScripting.SWbemLocator")
  3. if err <> 0 then
  4. WScript.Echo Err.Number, Err.Description, Err.Source
  5. end if
  6. 'Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\alanbos2\root\cimv2:Win32_OperatingSystem.Name=""Microsoft Windows NT Workstation|C:\\WINNT|\\Device\\Harddisk0\\partition1""")
  7. Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!//alanbos2/root/cimv2:Win32_OperatingSystem.Name=""Microsoft Windows NT Workstation|C:\\WINNT|\\Device\\Harddisk0\\partition1""")
  8. 'Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root\cimv2:Win32_OperatingSystem.Name=""Microsoft Windows NT Workstation|C:\\WINNT|\\Device\\Harddisk0\\partition1""")
  9. 'Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/cimv2:Win32_OperatingSystem.Name=""Microsoft Windows NT Workstation|C:\\WINNT|\\Device\\Harddisk0\\partition1""")
  10. 'Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\alanbos2/root/cimv2:Win32_LogicalDisk.DeviceId=""C:""")
  11. 'Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!//alanbos2/root/cimv2:Win32_LogicalDisk=""C:""")
  12. if err <> 0 then
  13. WScript.Echo Hex(Err.Number), Err.Description, Err.Source
  14. end if