Как изменить скрипт чтобы он выполнялся быстрее ?

[dark-------13]

Здравствуйте,
Подскажите пожалуйста, как изменить скрипт чтобы он выполнялся быстрее ?

@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

[Iska]

Пакетный файл у Вас, конечно, кошмар. Но и будучи вылизанным, он дела не поправит. Особо Вы ping не ускорите. В первую очередь — по не отвечающему хосту.