Leaked source code of windows server 2003

9 lines
287 B

  1. on error resume next
  2. set s = GetObject("winmgmts:root\default")
  3. set cimomid = s.Get("__cimomidentification=@")
  4. if err <> 0 then
  5. WScript.Echo ErrNumber, Err.Source, Err.Description
  6. else
  7. WScript.Echo cimomid.path_.displayname
  8. WScript.Echo cimomid.versionusedtocreatedb
  9. end if