Не много подправить скрипт

set YY=%date:~8,2%
set MM=%date:~3,2%
set DD=%date:~0,2%
set DATA=20%YY%-%MM%-%DD%
if not exist d:\PING\%DATA% ( mkdir d:\PING\%DATA%\ )
set HOUR=%TIME:~0,2%
set MINUTE=%TIME:~3,2%
set PINGSTART=%DATA%__%HOUR%-%MINUTE%
set /p IP=Pinguem :
set PINGFILE=%PINGSTART%__%IP%
set OUTPUT=d:\PING\%DATA%\%PINGFILE%.txt
@echo off & cls
echo Host: %IP%>%OUTPUT%
:pinging
call :cyrtime
<nul set /p strTemp=^%PINGTIME%>>%OUTPUT%
PING -n 1 ^%IP% | FIND ^"TTL=^">>%OUTPUT%
IF ERRORLEVEL 1 (SET BG=4F & echo Ping timed out.>>%OUTPUT% ) ELSE (SET BG=2F)
color %BG%
ping -n 2 -l 10 127.0.0.1 >nul
if %BG%==2F (
echo ICMP answer received at %PINGTIME% from %IP% 
) ELSE (
echo ICMP answer not received at %PINGTIME% from %IP% 
)
goto pinging
:cyrtime
set HR=%TIME:~0,2%
set MIN=%TIME:~3,2%
set SEC=%TIME:~6,2% 
set PINGTIME=%DATA% - %HR%:%MIN%:%SEC%
exit /b

@echo off
set d=%date%
set yy=%d:~8,2%
set mm=%d:~3,2%
set dd=%d:~0,2%
set data=20%yy%-%mm%-%dd%
if not exist "D:\ping\%data%" mkdir "D:\ping\%data%"
set t=%time%
set hour=%t:~0,2%
set hour=%hour: =0%
set minute=%t:~3,2%
set pingstart=%data%__%hour%-%minute%
set /p ip=Pinguem :
set pingfile=%pingstart%__%ip%
set output="D:\ping\%data%\%pingfile%.txt"
cls
echo Host: %ip%>%output%
:pinging
call :cyrtime
<nul set /p strTemp=^%pingtime%>>%output%
1>nul chcp 866
for /f "delims=" %%i in ('ping -n 1 %ip% ^| find "TTL="') do (call :f "%%i")
if errorlevel 1 (set bg=4F & echo Ping timed out.>>%output% ) else (set bg=2F)
color %bg%
ping -n 2 -l 10 127.0.0.1 >nul
if %bg%==2F (
echo ICMP answer received at %pingtime% from %ip%
) else (
echo ICMP answer not received at %pingtime% from %ip%
)
goto pinging
:cyrtime
set t=%time%
set hr=%t:~0,2%
set hr=%hr: =0%
set min=%t:~3,2%
set sec=%t:~6,2% 
set pingtime=%data% - %hr%:%min%:%sec%
exit /b
:f
if %1=="" (1>>1.txt echo. & exit /b)
1>nul chcp 1251
set "str=%~1"
set "str=%str:/=^/%"
set "str=%str:>=^>%"
set "str=%str:<=^<%"
1>>%output% echo %str%
1>nul chcp 866
exit /b