Помогите написать bat-ник-пинговщик

[Coldblooded]

Здравствуйте.
Помогите написать bat-ник.

задача:
1.запускается команда ping и работает себе в фоновом режиме
2.при условии таймаута (к примеру 2000 ms) запускается другой bat-ник,
затем, когда снова пингуется, запускается ещё один bat-ник

для чего это нужно:
при падении (выключении) сервера буит приходить смс на моб. телефон и e-mail

P.S. 2-я часть готова.

Спасибо.

[serjykt]

Вот Скрипт небольшой добавлен в назначенные задания через каждые 30 минут pingует указанные компы, если сервер упал пытается если пропинговать 3 раза (на случай отключения света, может все таки включат=))
Option Explicit
On Error Resume Next

Dim strMachines,strResult
Dim objShell,objPing,objStatus
Dim count
Dim bCheck
Dim aMachines
Dim machine

' Задержка на 10 минут
Const TimeSleep = 600000 ' 10 минут = 1000 * 60 * 10

strResult ="Proxy rst:"
strMachines ="Server;comp;User"
count = 0

Set objShell = CreateObject("WScript.Shell")


' Проверка на все ли машины в сети
bCheck = true

Do
If bCheck = False Then
count = count + 1
objShell.Exec "c:\cmd2sms.exe -Q -J MTSOPERATOR 79142758281 AHTUNG!!! SERVER Is DOWN " & strResult
WScript.Sleep(TimeSleep)
End If

strResult ="Proxy rst:"
bCheck = True
On Error Resume Next

aMachines = Split(strMachines,";")

For Each machine In aMachines
Set objPing = GetObject("winmgmts:")._
ExecQuery("Select * from Win32_PingStatus where address = '"& machine &"'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode<>0 Then
strResult = strResult & Left(machine,1) & "=0;"
bCheck = false
Else
strResult = strResult & Left(machine,1) & "=1;"
End if
Next
Next

Loop Until bCheck = True Or count>=3

[Coldblooded]

спасибо, буду разбираться

[osirisd]

На С++ проще всего как по мне написать-я так решил проблему.
Запускаешь команду системы ping хост
и проверяешь что возвратило. Если ответ 0, то ОК если нет делаешь резет.

[vladacval]

наверно стоит еще написать echo чтобы отображалось на экране