[Dragokas]

Попробуйте так:

Код:

@echo off
SetLocal EnableDelayedExpansion
set FileOut=c:\pin.txt
if exist "%FileOut%" del /f "%FileOut%"

:begin
chcp 866> nul
for /f "delims=" %%a in ('ping -n 1 google.ru ^|findstr "Превышен Ответ"') do (
  chcp 1251> nul
  set /p=!TIME:~0,8! >> "%FileOut%" <nul
  call :convert "%%a" 2>NUL
  ping 127.1 -n 2 >nul
)
goto :begin
 
:convert
echo.%~1>>"%FileOut%"

или однострочный через Unicode:

Код:

@cmd /Q /V:ON /C "for /L %%a in (0,0,0) do set/p=!TIME:~0,8! >c:\t.txt <nul& ping -n 1 google.ru| findstr "Превышен Ответ">>c:\t.txt& CMD /U /C type c:\t.txt>> c:\pin.txt"

сохранять в кодировка OEM-866.
P.S. Подправил код с динамическим изменением времени.