Сеть, интернет Проверка соединения

[rem24]

Добрый день. Есть комп к которому постоянно подключено оборудование по сети. Это оборудование периодически отваливается. Я хочу постоянно его пинговать и в случает отвала оповещать оператора сообщение. Помогите зациклить функицю PING.

$iPing = Ping("192.168.1.1", 250)
If $iPing Then 
    MsgBox(4096, "Состояние", "В онлайне, задержка ответа: " & $iPing)
Else
    MsgBox(4096, "Состояние", "Произошла ошибка, @error=" & @error)
EndIf

 

[IMStrelcov]

Помогите зациклить функицю PING.

While 1
    $iPing = Ping("192.168.1.1", 250)
    If $iPing Then 
        MsgBox(4096, "Состояние", "В онлайне, задержка ответа: " & $iPing)
    Else
        MsgBox(4096, "Состояние", "Произошла ошибка, @error=" & @error)
    EndIf
WEnd

 

[rem24]

While 1
    $iPing = Ping("192.168.1.1", 250)
    If $iPing Then
        MsgBox(4096, "Состояние", "В онлайне, задержка ответа: " & $iPing)
    Else
        MsgBox(4096, "Состояние", "Произошла ошибка, @error=" & @error)
    EndIf
WEnd

Спасибо