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.
21 lines
531 B
21 lines
531 B
on error resume next
|
|
|
|
set service = GetObject ("winmgmts:{impersonationLevel=impersonate}")
|
|
|
|
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, process.handle, "<NULL>"
|
|
else
|
|
WScript.Echo process.name, process.handle, process.priority
|
|
end if
|
|
next
|
|
|
|
if err <> 0 then
|
|
WScript.Echo Err.Number, Err.Description, Err.Source
|
|
end if
|