[dark-------13]

Наконец разобрался - улучшено 23.01.2015 ( Убраны тире и нижние подчеркивания - при записи данных в фалы )

Код:

@echo off
SetLocal 
set /a per=0
@echo. >log_speed_v.2.1.txt
date /t >>log_speed_v.2.1.txt
time /t >>log_speed_v.2.1.txt
date /t >log_speed_bad.txt
time /t >>log_speed_bad.txt
For /f "tokens=1,2,3 delims=," %%i in (my.txt) do (
set /a per=0
@echo. %%j >>log_speed_v.2.1.txt
ping %%i -n 1 | find "Ответ" >>log_speed_v.2.1.txt
ping %%i -n 1 | find "TTL=" >>log_speed_v.2.1.txt || if %per% == 0 ( 
@echo. %%j BaD
@echo. >>log_speed_bad.txt
@echo. %%i >>log_speed_bad.txt 
@echo. %%j >>log_speed_bad.txt
)  
@echo. %%k
@echo. >>log_speed_v.2.1.txt 
)
date /t >>log_speed_v.2.1.txt
time /t >>log_speed_v.2.1.txt 
@echo. >>log_speed_v.2.1.txt 
EndLocal

@echo off
SetLocal 
echo. >res_ok.txt
Set a=0
for /F "delims=" %%a in (log_speed_v.2.1.txt) do call :convert %%a 
:convert
chcp 1251 >nul
@echo. %* >>res_ok.txt
chcp 866 >nul
EndLocal

@echo off
SetLocal
Set k=0
@echo. >res_bad.txt
for /F "delims=" %%k in (log_speed_bad.txt) do call :convert %%k 
:convert
chcp 1251 >nul
@echo. %* >>res_bad.txt 
chcp 866 >nul
EndLocal