21 lines
507 B
Plaintext
21 lines
507 B
Plaintext
on error resume next
|
|
|
|
set service = GetObject ("winmgmts:{impersonationLevel=impersonate,(debug)}")
|
|
|
|
if err <> 0 then
|
|
WScript.Echo Hex(Err.Number), Err.Description, Err.Source
|
|
end if
|
|
|
|
set processes = service.instancesof ("Win32_Process")
|
|
|
|
for each process in processes
|
|
if IsNull(process.priority) then
|
|
WScript.Echo process.Name, "<NULL>"
|
|
else
|
|
WScript.Echo process.name, process.priority
|
|
end if
|
|
next
|
|
|
|
if err <> 0 then
|
|
WScript.Echo Err.Number, Err.Description, Err.Source
|
|
end if |