Dreamer_UFA, добавление новых серверов очень простое, посмотрите, как это сделано в примере. Вашим пользователям останется только нажать Ctrl+C на появившемся месседжбоксе и отправить результат вашей техподдержке.
Код:
@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"
