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

on error resume next

const wbemPrivilegeDebug = 19

set service = GetObject ("winmgmts:{impersonationLevel=impersonate}")
service.security_.privileges.Add wbemPrivilegeDebug

if err <> 0 then
	WScript.Echo Hex(Err.Number), Err.Description, Err.Source
end if 

set process = service.get ("Win32_Process.Handle=""24""")

if IsNull(process.priority) then
	WScript.Echo process.Name, "<NULL>"
else
	WScript.Echo process.name, process.priority
end if

if err <> 0 then
	WScript.Echo Err.Number, Err.Description, Err.Source
end if