7 lines
112 B
Plaintext
7 lines
112 B
Plaintext
on error resume next
|
|
set service = GetObject("winmgmts:")
|
|
|
|
|
|
while true
|
|
service.Get ("Win32_Service")
|
|
wend |