Пингер с оповещением SMS или на E-Mail

[alex_cent]

Приветствую Всех!!!

Уважаемы форумчане подскажите/направте на решение такой задачи:

Нужна программа для постоянного пинга определенных IP-адресов(2-3 адреса) в случае если пинг долго не проходит скажем там 30-60сек чтобы было информирование, приходило письмо на почту о обрыве или в лучшем случае смс на телефон.

Заранее спасибо!

[Dreamer_UFA]

батник с пингованием + blat (отправка почты) ?

[alex_cent]

спасибо за ответ, если Вам не трудно можете написать пример ?

ping 192.168.1.1 -t -l 1024 ....

[Dreamer_UFA]

пример завтра скину. где то рабочий вариант валяется...

[alex_cent]

Dreamer_UFA уважение!

[Dreamer_UFA]

Исходник не нашел пока дельфовый, найду выкину.
Смотрите, можно обойтись вот так.
Пример от Anonymous:

**********************
@Echo Off
SetLocal EnableDelayedExpansion
:: Адреса серверов в формате IP:Описание
:: Название переменной - _PointНомер, где номер идет с приращением в 1
Set _Point1=192.168.50.1:Billing server
Set _Point2=192.168.50.5:VPN server
Set _Point3=192.168.72.11:FTP
Set _Point4=127.0.0.1:Loopback
Set _Point5=209.85.148.113:Google.com

Set i=5
Set MsgString="Status:"
:: Получаем набор адресов
Echo Wait...
For /F "tokens=2 delims==" %%A In ('Set _Point') Do (
For /F "tokens=1,2 delims=:" %%B In ("%%A") Do (
Echo Checking "%%B"
:: Проверяем на доступность сервера и стабильный пинг к нему
For /F %%I In ('Ping -n %i% %%B^|Find /C "TTL="') Do (
If %%I==%i% (Set Result=Online) Else (Set Result=Unstable connection)
If %%I==0 Set Result=Not responding
)
:: Составляем строку с данными для MsgBox'а
Set MsgString=!MsgString! + vbCrLf + "%%C - !Result!"
)
)
:: Генерируем и запускаем vbs-скрипт, выводящий данные
Echo MsgBox %MsgString%>"%Temp%\statusmsg.vbs"
"%Temp%\statusmsg.vbs"


Где выделение жирным составляем не Message Box а в текстовый файл и отправляем с помощью Blat (http://www.blat.net/)

Поэкспериментируйте - довольно интересно

[alex_cent]

Пока установил ping monitor, визуализация и звуковое предупреждение есть.

Спасибо, попробую!