10 lines
263 B
Plaintext
10 lines
263 B
Plaintext
On Error Resume Next
|
|
while true
|
|
Set t_Service = GetObject("winmgmts:{impersonationLevel=impersonate}")
|
|
Set t_Enumerator = t_Service.ExecQuery ("select * from win32_systemusers")
|
|
|
|
for each inst in t_Enumerator
|
|
WScript.Echo inst.groupcomponent
|
|
Next
|
|
wend
|