[Petya V4sechkin]

Whiteee, можно:

Код:

@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion

Set /P text=Please, input message text:
For %%I In (visior-1,hina1,hev1,era1,hin1,kov1) Do (
  Ping -n 1 -w 1 %%I >nul
  If "!ErrorLevel!"=="0" (
    If "!Lst!"=="" (
      Set Lst=%%I
    ) Else (
      Set Lst=!Lst!,%%I
    )
  ) Else (
    Echo При проверке связи не удалось обнаружить узел %%I.
  )
)
If Not "!Lst!"=="" "\\srv-file\public\it\sent.exe" !Lst! "%text%"