В качестве альтернативы используйте интерфейс WMI, чтобы узнать, что работает, и предпримите соответствующие действия. В приведенном ниже коде VBScript подсистема WMI запрашивается с Select * from Win32_Process
, чтобы изменить приоритет процесса. Узнайте, какие другие атрибуты доступны для Win32_Process
, и вы должны найти материал, который движется в том направлении, куда вы хотите идти.
Const NORMAL_PRIORITY = 32
Const LOW_PRIORITY = 64
Const REALTIME_PRIORITY = 128
Const HIGH_PRIORITY = 256
Const BELOWNORMAL_PRIORITY = 16384
Const ABOVENORMAL_PRIORITY = 32768
Function SetPriority( sProcess, nPriority )
Dim sComputer
Dim oWMIService
Dim cProcesses
Dim oProcess
Dim bDone
bDone = False
sComputer = "."
Set oWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set cProcesses = oWMIService.ExecQuery ("Select * from Win32_Process Where Name = '" & sProcess & "'")
For Each oProcess in cProcesses
oProcess.SetPriority( nPriority )
bDone = True
Next
SetPriority = bDone
End Function