strComputer = "." 
tempName="" 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Do While tempName="" 
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name='NBA2K11.exe'") 
For Each objProcess in colProcessList 
If objProcess.Priority<>13 Then objProcess.SetPriority(128) 
Next 
WSCRIPT.SLEEP 900 
Loop 
