scripting und usereingaben ueberpruefen

@echo off & setlocal
set /a Block1=10

:: Bei Bedarf genaue Erkl„rung der erforderlichen Eingabe

:loop
set OK=
set /p "SubnetIn=Bitte die n„chsten beiden Bl”cke (durch Punkt getrennt) eingeben: %Block1%."  
if "%SubnetIn%"=="" goto :Cancel  
for /f "tokens=1,2 delims=." %%a in ("%SubnetIn%") do call :CheckInput "%%a" "%%b"  

if not defined OK echo Eingabe fehlerhaft - bitte neu eingeben! & echo. & goto :loop

set Subnet=%Block1%.%Block2%.%Block3%
echo.
echo.
echo Eingegebenes Subnet: %Subnet%

:: Was sonst noch
::   so anliegt ...

goto :eof


:CheckInput
if "%~2"=="" goto :eof  

set /a Block2=%~1 2>nul
if %Block2% lss 1 goto :eof
if %Block2% gtr 255 goto :eof

set /a Block3=%~2 2>nul
if %Block3% lss 1 goto :eof
if %Block3% gtr 255 goto :eof

:: erst hier ist alles OK
set OK=True
goto :eof


:Cancel
cls
echo Na dann eben nicht ...
goto :eof