"tokens=*" "съедает" одну строчку при обработке вывода результата выполнения команды ping :)

@echo off
for /f "tokens=*" %%a in ('ping ya.ru -n 4 -l 500') do (call :convert "%%a")
exit
:convert
if ""==%1 exit /b
chcp 1251>nul
echo %~1>>test_connection_%date%.txt
chcp 866>nul 
exit /b

@echo off
for /f "tokens=*" %%a in ('ping ya.ru -n 4 -l 500') do (call :convert "%%a")
exit
:convert
chcp 1251>nul
if ""==%1 (echo. >>test_connection_%date%.txt) else echo %~1>>test_connection_%date%.txt
chcp 866>nul 
exit /b

@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%a in ('ping ya.ru -n 4 -l 500') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
goto :eof
:convert
chcp 1251 >nul
if ""==%1 (echo. >>test_connection_%date%.txt&exit /b)
echo %~1>>test_connection_%date%.txt
chcp 866 >nul
exit /b

@echo off
mkdir log
chcp 866 >nul
echo %date% %time% > log\test_connection_%date%.txt
setlocal enabledelayedexpansion
echo ping odnokalssniki.ru
for /f "tokens=*" %%a in ('ping odnoklassniki.ru -n 100 -l 500') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo ping vkontakte.ru 
for /f "tokens=*" %%a in ('ping vkontakte.ru -n 100 -l 500') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo ping rbc.ru 
for /f "tokens=*" %%a in ('ping rbc.ru -n 100 -l 500') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo ping kaspersky.com 
for /f "tokens=*" %%a in ('ping kaspersky.com -n 100 -l 500') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo ping microsoft.com 
for /f "tokens=*" %%a in ('ping microsoft.com -n 100 -l 500') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
 
echo tracert odnokalssniki.ru
for /f "tokens=*" %%a in ('tracert odnoklassniki.ru') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo tracert vkontakte.ru
for /f "tokens=*" %%a in ('tracert vkontakte.ru') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo tracert rbc.ru
for /f "tokens=*" %%a in ('tracert rbc.ru') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo tracert kaspersky.com
for /f "tokens=*" %%a in ('tracert kaspersky.com') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
echo tracert microsoft.com
for /f "tokens=*" %%a in ('tracert microsoft.com') do (set str="%%a"&set str=!str:%%=%%%%!&call :convert !str!)
 
goto :eof
:convert
chcp 1251 >nul
if ""==%1 (echo. >> log\test_connection_%date%.txt&exit /b)
echo %~1>> log\test_connection_%date%.txt
chcp 866 >nul
If Exist log\temp_connection_%date%.txt del log\temp_connection_%date%.txt
exit /b