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.

9 lines
263 B

  1. On Error Resume Next
  2. while true
  3. Set t_Service = GetObject("winmgmts:{impersonationLevel=impersonate}")
  4. Set t_Enumerator = t_Service.ExecQuery ("select * from win32_systemusers")
  5. for each inst in t_Enumerator
  6. WScript.Echo inst.groupcomponent
  7. Next
  8. wend