Код:
@echo off &setlocal enableextensions
set Host=google.com
set "IP="
set /a O = 9999
for /f "tokens=1,* delims=: " %%a in ('2^>nul nslookup %Host% ^|find ", "') do call :ping "%%b"
>>Fast.txt echo %IP% %Host%
goto :eof
:ping
for /f "tokens=1,* delims=, " %%i in (%1) do (
for /f "skip=1 tokens=7 delims== " %%O in ('ping -n 1 %%i ^|find " = "') do (
echo %%i %%O
if %%O LSS %O% (set /a O = %%O &set "IP=%%i")
)
if not "%%j"=="" call :ping "%%j"
)
goto :eof
