Do

        Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" & strAddress & "'")
        For Each objSWbemObjectEx In collSWbemObjectSet
        If IsNull(objSWbemObjectEx.StatusCode) Or objSWbemObjectEx.StatusCode  <> 0 Then
            X = false
        else
            X = true
              
        End If
    Next
    Wscript.Sleep 15000


        If oAutoIt.ProcessExists(MonitorProcess) then
           Y = True
        Else 
           Y = False 
        End If
    Wscript.Sleep 1000
    

        If X Or Y Then
        IsLimited = SetLimitsTrue(IsLimited)    
        Else 
        IsLimited = SetLimitsFalse(IsLimited)

'Версия 1.5  (Final)
'Настройки'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Const InstallPath = "C:\Program Files\uTorrent\"         ' - путь к папке, где лежит "utspeed.exe" [Str]
Public Const MonitorProcess = "opera.exe"                       ' - название отслеживаемого процесса [Str]
Public Const Mode = 0                                           ' - режимы: 0 - лимиты, 1 - расписание, 2 - ipfilter [0/1/2]
Public Const FileNameOn = "UT Limiter [on].vbs"                 ' - имя файла при включенном скрипте [Str]
Public Const FileNameOff = "UT Limiter [off].vbs"               ' - имя файла при выключенном скрипте [Str]
Public Const DownloadDefault = 60                               ' - нормальная скорость скачки [кб/c]
Public Const UploadDefault = 60                                 ' - нормальная скорость отдачи [кб/c]
Public Const DownloadLimit = 5                                  ' - ограничение скорости скачки при обнаруж. процесса [кб/c]
Public Const UploadLimit = 20                                   ' - ограничение скорости отдачи при обнаруж. процесса [кб/c]
Public Const IdleTime = 15                                      ' - время простоя до частичного восстановл. скорости [сек.]
Public Const IdleDownSpeed = 50                                 ' - скорость скачки во время простоя [кб/c]
Public Const IdleUpSpeed = 50                                   ' - скорость отдачи во время простоя [кб/c]
Public Const AwayTime = 50                                      ' - время отсутствия до полного восстановл. скорости [сек.]
Public Const AwayDownSpeed = 50                                 ' - скорость скачки во время отсутствия [кб/c]
Public Const AwayUpSpeed = 50                                   ' - скорость отдачи во время отсутствия [кб/c]

'Инициализация'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

IsLimited = 2

Set objShell = CreateObject("Shell.Application")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set f = Fso.GetFile(Wscript.ScriptFullName)
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")

If Fso.FileExists(InstallPath & "utspeed.exe") = false then
Msgbox "Сначала укажите путь к папке!   ", vbInformation + vbOKOnly, "UT Limiter"
ExitScript
End if

If f.Name = FileNameOn then
ExitScript
else
f.Name = FileNameOn
End if

'Мониторинг''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Do

 If oAutoIt.ProcessExists(MonitorProcess) then
 IsLimited = SetLimitsTrue(IsLimited)
 else
 IsLimited = SetLimitsFalse(IsLimited)
 End if

 If Fso.FileExists(FileNameOn) = false then
 IsLimited = SetLimitsFalse(IsLimited)
 ExitScript
 End if

  PrevMpos = 0
  
  Do while oAutoIt.ProcessExists(MonitorProcess) and oAutoIt.ProcessExists("utorrent.exe")
  
   If Fso.FileExists(FileNameOn) = false then
   IsLimited = SetLimitsFalse(IsLimited)
   ExitScript
   End if
   
   CurMpos = oAutoIt.MouseGetPosX
   StartTime = Timer
    Do while CurMpos = PrevMpos
     If Timer - StartTime > IdleTime then
     IsLimited = SetIdleLimits(IsLimited)
     End if
     If Timer - StartTime > AwayTime then
     IsLimited = SetAwayLimits(IsLimited)
     End if
     Wscript.Sleep 200
     CurMpos = oAutoIt.MouseGetPosX
    Loop
    If IsLimited = 3 or IsLimited = 4 then
    IsLimited = SetLimitsTrue(IsLimited)
    End if
   PrevMpos = CurMpos
   Wscript.Sleep 500
  Loop
 
Wscript.Sleep 500
Loop

'Функции'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function SetLimitsTrue (IsLimited)
 If IsLimited <> 1 and Mode = 0 and oAutoIt.ProcessExists("utorrent.exe") then
  objShell.ShellExecute "utspeed.exe", "/max_dl_rate " & DownloadLimit & " /max_ul_rate " & UploadLimit, InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 1
 End if
 If IsLimited <> 1 and Mode = 1 and oAutoIt.ProcessExists("utorrent.exe") then
  objShell.ShellExecute "utspeed.exe", "/sched_enable 1", InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 1
 End if
 If IsLimited <> 1 and Mode = 2 and oAutoIt.ProcessExists("utorrent.exe") then
  objShell.ShellExecute "utspeed.exe", "/ipfilter.enable 1", InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 1
 End if 
 SetLimitsTrue = IsLimited
End Function

Function SetLimitsFalse (IsLimited)
 If IsLimited <> 0 and Mode = 0 and oAutoIt.ProcessExists("utorrent.exe") then
  objShell.ShellExecute "utspeed.exe", "/max_dl_rate " & DownloadDefault & " /max_ul_rate " & UploadDefault, InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 0
 End if
 If IsLimited <> 0 and Mode = 1 and oAutoIt.ProcessExists("utorrent.exe") then
  objShell.ShellExecute "utspeed.exe", "/sched_enable 0", InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 0
 End if
 If IsLimited <> 0 and Mode = 2 and oAutoIt.ProcessExists("utorrent.exe") then
  objShell.ShellExecute "utspeed.exe", "/ipfilter.enable 0", InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 0
 End if
 SetLimitsFalse = IsLimited
End Function

Function SetIdleLimits (IsLimited)
 If IsLimited <> 3 and IsLimited <> 4  and Mode = 0 and oAutoIt.ProcessExists("utorrent.exe") then   
  objShell.ShellExecute "utspeed.exe", "/max_dl_rate " & IdleDownSpeed & " /max_ul_rate " & IdleUpSpeed, InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 3
 End if
 SetIdleLimits = IsLimited
End Function

Function SetAwayLimits (IsLimited)
 If IsLimited <> 4  and Mode = 0 and oAutoIt.ProcessExists("utorrent.exe") then   
  objShell.ShellExecute "utspeed.exe", "/max_dl_rate " & AwayDownSpeed & " /max_ul_rate " & AwayUpSpeed, InstallPath
  oAutoIt.ProcessWaitClose "utspeed.exe"
  IsLimited = 4
 End if
 If IsLimited <> 4  and Mode = 1 and oAutoIt.ProcessExists("utorrent.exe") then   
  objShell.ShellExecute "utspeed.exe", "/sched_enable 0", InstallPath
  IsLimited = 4
 End if
 If IsLimited <> 4  and Mode = 2 and oAutoIt.ProcessExists("utorrent.exe") then   
  objShell.ShellExecute "utspeed.exe", "/ipfilter.enable 0", InstallPath
  IsLimited = 4
 End if
 SetAwayLimits = IsLimited
End Function

Function ExitScript
on error resume next
f.Name = FileNameOff
Wscript.Quit
End Function

…
strServiceName = "xxx 10.0.553"
…
' Если не удалось найти имя/адрес или статус пинга отличен от нуля, то…
If IsNull(objSWbemObjectEx.StatusCode) Or objSWbemObjectEx.StatusCode <> 0 Then
    ' Получаем объект указанной службы…
    With objSWbemServicesEx.Get("Win32_Service.Name='" & strServiceName & "'")
        ' Если указанная служба уже не остановлена, то…
        If .State <> "Stopped" Then
            ' …останавливаем её.
            .StopService
        End If
    End With
…

Option Explicit

Dim objSWbemServicesEx, collSWbemObjectSet, objSWbemObjectEx

Dim strAddress
Dim strServiceName


strAddress     = "localhost"
strServiceName = "Messenger"

Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Do
    Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" & strAddress & "'")
    
    For Each objSWbemObjectEx In collSWbemObjectSet
        If IsNull(objSWbemObjectEx.StatusCode) Or objSWbemObjectEx.StatusCode <> 0 Then
            With objSWbemServicesEx.Get("Win32_Service.Name='" & strServiceName & "'")
                If .State <> "Stopped" Then
                    .StopService
                End If
            End With
        Else
            With objSWbemServicesEx.Get("Win32_Service.Name='" & strServiceName & "'")
                If .State <> "Running" Then
                    .StartService
                End If
            End With
        End If
        
        Exit For
    Next
    
    WScript.Sleep 30 * 1000
Loop

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing

WScript.Quit 0