@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 #