[megaloman]

Вариант 1

Код:

Echo Off
Cls

Set "Spis=Cash.txt"
Set "Log=Ping_To_Log.log"

Echo ==== %Date%  %Time% =============================== >>"%Log%"

FOR /F "usebackq tokens=* delims=" %%p in ("%Spis%") Do Call :PingInLog %%p 2 512
GoTo :Eof

:PingInLog
Echo %1

ping %1 -n %2 -l %3` >nul 2>nul
If %Errorlevel%==0 (
	Echo +++  %1 Yes Ping %Date% %Time%>>"%Log%"
) Else (
	Echo ---  %1  No Ping %Date% %Time%>>"%Log%"
)

Вариант 2

Код:

Echo Off
Cls

Set "Spis=Cash.txt"
Set "Log=Ping_To_Log.log"

Echo ---- %Date%  %Time% ------------------------------- >>"%Log%"

FOR /F "usebackq tokens=* delims=" %%p in ("%Spis%") Do Call :PingInLog %%p 2 512
GoTo :Eof

:PingInLog

Set U=-
Set U1=-
Set U2=..................

Echo %1

For /F "usebackq tokens=1,2,3,4* delims=," %%i in (`ping %1 -n %2 -l %3`) Do (

   For /F "usebackq tokens=1,2,3*" %%a in ('%%i') Do (
      If "%%a %%b"=="Обмен пакетами" Set U=%%a %%c %%d
   )

   For /F "usebackq" %%a in ('%%k') Do (
       If "%%a"=="потеряно" Set U1=%%k 
    )

   For /F "usebackq" %%a in ('%%k') Do (
       If "%%a"=="Среднее" Set U2=%%k 
    )

)

Echo %U%
%из %2.% %Date% %Time%>>"%Log%"