@echo off
REM PARA WIN7
REM LINEAS QUE PONE DEBUG SON LINEAS QUE HAY QUE DESCOMENTAR
REM PARA PODER ENCONTRAR FALLOS AL HACER EL CODIGO

setlocal EnableDelayedExpansion

set ip_address_string="IPv4"
Set IpIsDefined=0
set yo_cuento=0
SET "direccionIp="

call :GetIp
REM - PARA DEBUG - ECHO !direccionIp!

call :SetNetwId
pause
exit

:GetIp
echo Network Connection Test
for /f "usebackq tokens=2 delims=:" %%G in (`ipconfig ^| findstr /c:%ip_address_string%`) do (
 SET "direccionIp=%%G"
 SET /A yo_cuento=!yo_cuento! + 1
 IF !yo_cuento! GTR 3 goto :bucle_infinito_Getip
REM como se usa la expansion de variables - ver inicio del batch
REM es necesario hacer la comprobacion de un modo similar al que vemos debajo, para que IF
REM funcione como deseamos aunque no haya valores asignados
 IF "!direccionIp!"=="" goto :GetIp 
 goto :eof
)

:SetNetwId
REM funcion pensada para redes clase C o sea donde nos importan los 3 primeros tokens
REM modificable a conveniencia
set yo_cuento=0
FOR /F  "usebackq tokens=1,2,3,4 delims=." %%H IN (`echo !direccionIp!`) do (
SET /A yo_cuento=!yo_cuento! + 1
SET TokenIp!yo_cuento!=%%H
SET /A yo_cuento=!yo_cuento! + 1
SET TokenIp!yo_cuento!=%%I
SET /A yo_cuento=!yo_cuento! + 1
SET TokenIp!yo_cuento!=%%J
SET /A yo_cuento=!yo_cuento! + 1
SET TokenIp!yo_cuento!=%%K
)
REM Quitar REM para DEBUG
REM ECHO !TokenIp1!
REM ECHO !TokenIp2!
REM ECHO !TokenIp3!
REM ECHO !TokenIp4!
Set NetworkId=!TokenIp1!.!TokenIp2!.!TokenIp3!.0
ECHO !NetworkId!
goto :eof

:bucle_infinito_Getip 
Echo Imposible detectar IP, Cerrando..   
PAUSE  
EXIT 

SET TokenIp!yo_cuento!=%%H

SET TokenIp!yo_cuento!=%% style="color: #448888;">H