@echo off
chcp 65001
setlocal enabledelayedexpansion

set direccioncomostring="Dirección IP"

for /F "usebackq tokens=2 delims=:" %%f in (`ipconfig ^| findstr /c:%direccioncomostring%`) do (
  echo %%f > ip.txt
  goto :start
)

:start
for /F "useback tokens=1-3 delims=." %%a in ("ip.txt") do (
  echo Dirección IP detectada, extracción del último octeto: %%a.%%b.%%c
  echo -----------------------------------------------------------------------------------------
  set direcciones=%%a.%%b.%%c
)

for /L %%z in (1,1,254) do (
  ping -n 1 %direcciones%.%%z | findstr "TTL" >> dirs.txt
  set /a "porcentaje=(%%z*100)/254"
  echo !porcentaje!%% - %direcciones%.%%z
)


goto :eof