Leaked source code of windows server 2003

13 lines
357 B

  1. on error resume next
  2. set service = getobject("winmgmts:{impersonationLevel=impersonate,(shutdown)}")
  3. set osset = service.instancesof ("Win32_OperatingSystem")
  4. for each os in osset
  5. result = os.Shutdown ()
  6. if err <> 0 then
  7. WScript.Echo Hex(Err.Number), Err.Description
  8. else
  9. WScript.Echo "Shutdown returned result " & result
  10. end if
  11. next