[James Marsh]

PingPlotter Pro. Вот только не подскажу - shareware ли...

[Iska]

подскажите программу для пинга 3 ip и когда к одному из них не может до стучатся то оповещал »

Пакетный файл, скрипт на WSH/PoSH.

[diagnoz_]

возможно натолкнет на мысль использовать цикл с созданием соответствующих файлов:

Код:

@echo off
:loop
ping ip_adress -n 10   >> \Users\имя_пользователя\Desktop\ping_ok .txt
ping  ip_adress -n 10   >> \Users\имя_пользователя\Desktop\ping_ok.txt
ping -n  ip_adress | find "TTL=" > nul
if %errorlevel%==1 echo net pinga %date% %time% >>\Users\имя_пользователя\not_ping.txt

goto loop

при удачном ping будет создан текстовый ping_ok .txt на рабочем столе, при не удачном создан not_ping.txt там же.

[McLotos]

Пару лет назад я писал похожее решение, только в моём варианте батник просто пинговал список машин из файла и если какой-то нет то выдавал Msg с кнопочкой ОК ))))

[Angry Demon]

Rubichek, не помню, откуда брал:

Код:

<job>
 <script language="JScript">
 
 // Мониторинг доступности хоста штатными средствами Windows. При изменении состояния отправляет e-mail об этом.
 // Работает полностью в фоне. Не создает окон и процесса. Не болтается в трее. Не поддерживает скины :)
 // Не будет работать на Win98/2000 - только XP/2003/Vista/LongHorn.
 
 var adr="1.1.1.1",interval=5;						// Пингуемый адрес и интервал, сек
 var from="from@host.ru",to="to@host.ru",smtp="smtp.host.ru";		// Параметры электрической почты
 
 var wmi=GetObject("winMgmts:root/CIMv2");				// Подключаемся к пространству имён WMI
 
 if(WScript.arguments.length&&WScript.arguments(0)=="stop")		// Если запущено с параметром "stop"
 {								// то останавливаем мониторинг,
  try{wmi.Get("__EventFilter.Name='pingMon'").Delete_()} catch(e){};
  try{wmi.Get("SMTPEventConsumer.Name='pingMonEv'").Delete_()} catch(e){};
  WScript.echo("Monitoring "+adr+" stopped!");			// печатаем сообщение об этом,
  WScript.quit();							// и завершаем скрипт
 }
									// запуск без параметра = старт сервиса
 with(wmi.Get("__EventFilter").SpawnInstance_())			// создаем экземпляр фильтра событий
 {                                                              	// и настраиваем его на изменения состояния PingStatus
  Name="pingMon";
  QueryLanguage="WQL";
  Query="select * from __InstanceModificationEvent within "+interval+" where TargetInstance ISA 'Win32_PingStatus' and TargetInstance.Address='"+adr+"'";
  Put_();
 }
 
 with(wmi.Get("SMTPEventConsumer").SpawnInstance_()) 			// создаем экземпляр потребителя событий
 {									// SMTPEventConsumer - отправка почты
  Name="pingMonEv";							// задаем ему параметры и шаблоны
  FromLine=from;
  ToLine=to;
  SMTPServer=smtp;
  Subject="host %TargetInstance.Address% status changed to %TargetInstance.StatusCode%";
  Message="Ping(%TargetInstance.Address%): status=%TargetInstance.StatusCode%, delay=%TargetInstance.ResponseTime%.";
  Put_();
 }
 
 with(wmi.Get("__FilterToConsumerBinding").SpawnInstance_()) 		// создаем экземпляр связки
 {
  Filter=wmi.Get("__EventFilter.Name='pingMon'").Path_;			// связываем фильтр с потребителем
  Consumer=wmi.Get("SMTPEventConsumer.Name='pingMonEv'").Path_;	
  Put_();									// запускаем мониторинг
 }
 WScript.echo("Monitoring "+adr+" started!");				// и печатаем сообщение об этом
 
 </script>
</job>

[Rubichek]

Angry Demon - хороший скриптик вот только не заработал
нашел вот такой скрипт

<job>
<script language="JScript">

var IP="www.ixbt.com",status;
var ws=new ActiveXObject("WScript.Shell");
var wmi=GetObject("winmgmts:root/cimv2");

while(true)
{
var ping=wmi.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '"+IP+"'");
ping=new Enumerator(ping).item().StatusCode;
if(ping!=status)
{
status=ping;
ws.PopUp(((ping==0)?"":"Не ")+" Пингуется",3,"PING",(ping==0)?64:48)
}
WScript.sleep(1000);
}

</script>
</job>

подскажите пж что дописать что бы уведомление приходило на email когда пинга нет.