Перезапуск службы при достижении 80% загрузки ЦП

"Processor' AND TargetInstance.Name='_Total' AND TargetInstance.PercentProcessorTime >=" & Percent

Sub CPUsage2()
    Const ID = "7748"
    Dim p1, p2, t1, t2, n, CPU
    Dim objService, process
    Set objService = GetObject("WinMgmts:\\.\Root\CIMV2")
    Set process = objService.ExecQuery("Select * From Win32_PerfRawData_PerfProc_Process Where IDProcess=" & ID).ItemIndex(0)
    n = objService.ExecQuery("Select NumberOfLogicalProcessors From Win32_ComputerSystem").ItemIndex(0).NumberOfLogicalProcessors
    p1 = process.PercentProcessorTime
    t1 = process.TimeStamp_Sys100NS
    Sleep 1000
    Do
      DoEvents
      process.Refresh_
      p2 = process.PercentProcessorTime
      t2 = process.TimeStamp_Sys100NS
      CPU = ((p2 - p1) / (t2 - t1) * 100) / n
      Debug.Print Round(CPU, 2)
      Sleep 1000
    Loop
    
End Sub

Dim ID, p1, p2, t1, t2, n, CPU
Dim objService, colProcessors, process
WScript.StdOut.Write "Введите ID процесса: "
ID = WScript.StdIn.ReadLine
Set objService = GetObject("WinMgmts:\\.\Root\CIMV2")
Set process = objService.ExecQuery("Select * From Win32_PerfRawData_PerfProc_Process Where IDProcess="&ID).ItemIndex(0)
n = objService.ExecQuery("Select NumberOfLogicalProcessors From Win32_ComputerSystem").ItemIndex(0).NumberOfLogicalProcessors
p1 = process.PercentProcessorTime
t1 = process.TimeStamp_Sys100NS
WScript.Echo process.name
WScript.Sleep 1000
Do
  process.Refresh_
  p2 = process.PercentProcessorTime
  t2 = process.TimeStamp_Sys100NS
  CPU = ((p2 - p1) / (t2 - t1) * 100) / n
  WScript.Echo Round(CPU, 2)
  p1 = p2
  t1 = t2
  WScript.Sleep 1000
Loop