windows-server-2003/admin/wmi/wbem/scripting/test/vbscript/privilege/privilege_ps2.vbs

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