1 Тема от orchara

  • orchara
  • Участник
  • Неактивен

Тема: CMD/BAT: Автоматический пинг

Доброго времени суток. Подскажите пожалуйста можно ли реализовать данный код.
Идея следующая: в локальной сети есть несколько ПК которые необходимо периодически проверять работают они или нет.
Можно ли создать батник работающий фоном и пингующий каждые минут 5 (или постоянно) ряд ip адресов, и в случае если пинг до одного из ip не проходит, всплывает сообщение о отказе связи с определенным ПК?

2 Ответ от Yury

  • Yury
  • Разработчик
  • Неактивен

Re: CMD/BAT: Автоматический пинг

@echo off

:: 0 -- консольное окно не отображается;
:: 1 -- консольное окно отображается.
set WindowStyle=0

:: Время в секундах, по истечении которого выводимое окно сообщения автоматически закрывается
:: (0 -- выводимое окно сообщения автоматически не закрывается):
set SecondsToWait=0

:: Время в секундах, по истечении которого повторяется пингование
:: (0 -- постоянное пингование):
set Timeout=300

:: Число отправляемых запросов проверки связи (пакетов):
set Number=1

if "%1" neq "*" (
 mshta vbscript:Execute("CreateObject(""WScript.Shell"").Run """"""%~f0"""" *"",%WindowStyle%,False :Close()"^)
 exit/b
)

:#
:: Между скобок вписать реальные IP-адреса ПК.
for %%i in (

 213.180.193.3
 217.69.139.202
 212.188.7.45

) do (
 ping -4 -n %Number% %%i| (
 find "TTL=")|| (
 start "" mshta vbscript:Execute("CreateObject(""WScript.Shell"").Popup """"""%%i"""" is not available."",%SecondsToWait%,""%%i"":Close()"^))
)
timeout %Timeout% /nobreak
goto #
+ orchara, dima9252