如何把任务管理器无法调节优先级的进程优先级调高

strComputer = "."
tempName=""
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
do While tempName=""
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where name='qq.exe' ")
For Each objProcess in colProcessList
If objProcess.Priority<>13 Then objProcess.SetPriority(64)
Next

'32---标准。
'64---低。
'128---高。
'256---高（实时）。
'32768---高于标准。
'16384---低于标准
If objProcess.Priority<>13 Then objProcess.SetPriority(64)
上句中的（64）可以改为你自己想要得优先级。

'qq.exe' 改为你的进程