Leaked source code of windows server 2003

11 lines
354 B

  1. on error resume next
  2. set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!win32_diskpartition.DeviceId=""Disk #0, Partition #1""")
  3. WScript.Echo obj.Path_.Class
  4. for each system in obj.Associators_ (,"Win32_ComputerSystem")
  5. WScript.Echo system.Name
  6. next
  7. if err <> 0 then
  8. WScript.Echo err.number, err.description, err.source
  9. end if