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