reconnect.bat D-Link615 & Thompsen Modem

@echo off & SETLOCAL
if not exist "zahl.txt" set /a zahl=10
for /f %%i in (Zahl.txt) do set /a zahl=%%i

set routerip=192.168.0.1
set routeruser=admin
set routerpw=[color="Red"]xx[/color]
set mac1=[color="Red"]xx[/color]
set mac2=[color="Red"]xx[/color]
set mac3=[color="Red"]xx[/color]
set mac4=[color="Red"]xx[/color]
set mac5=[color="Red"]xx[/color]
set mac6=%zahl%

rem Pro Tag eine eigene Datum_IP-History.txt

FOR /F "tokens=1,2,3,4,5 delims=/. " %%a in ('date/T') do set cDate=%%d-%%c-%%b
rem - WAN-IP ermitteln
WGET.EXE -O "index.txt" Current IP Check >NUL 2>&1
FOR /F "tokens=8 delims=<>" %%A IN ('TYPE "index.txt" ^| FIND /I "Current IP Address:"') DO FOR %%B IN (%%A) DO SET WAN_IP=%%B
DEL "index.txt"
call login.bat
cls

call ModemRestart.bat

set /a zahl=zahl+1
if %zahl%==31 set /a zahl=10
echo %zahl% > Zahl.txt
:IPcheck
ping Google -n 2 | find "TTL=" >nul
if not errorlevel 1 goto ende
goto IPcheck
:ende

echo Aktuelle IP: %WAN_IP%
echo Schreibe neue Mac-Addresse in die Routerconfig:
echo "%mac1%:%mac2%:%mac3%:%mac4%:%mac5%:%mac6%"

curl -b cookies.txt -c cookies.txt -m 10 "http://%routerip%/login.php" -d "ACTION_POST=LOGIN&LOGIN_USER=%routeruser%&LOGIN_PASSWD=%routerpw%&login=Anmelden" >NUL 2>&1
curl -b cookies.txt -c cookies.txt -m 10 -d "ACTION_POST=DHCP&hostname=DIR-615&mac1=%mac1%&mac2=%mac2%&mac3=%mac3%&mac4=%mac4%&mac5=%mac5%&mac6=%mac6%&clonemac=%mac1%%%3A%mac2%%%3A%mac3%%%3A%mac4%%%3A%mac5%%%3A%mac6%&dns1=&dns2=&mtu=1500&dh_eap_type=1&dh_authentication=0&dh_username=&dh_password=&dh_password_v=" "http://%routerip%/bsc_wan.php"
curl -b cookies.txt -c cookies.txt -m 10 "http://%routerip%/bsc_wan.xgi?random_num=2009.5.26.20.39.50&exeshell=submit%%20COMMIT&exeshell=submit%%20WAN"

rem - Neue WAN-IP ermitteln!
WGET.EXE -O "index.txt" Current IP Check >NUL 2>&1
FOR /F "tokens=8 delims=<>" %%A IN ('TYPE "index.txt" ^| FIND /I "Current IP Address:"') DO FOR %%B IN (%%A) DO SET WAN_IP_NEW=%%B
DEL "index.txt"

if not exist "Log". md "Log"
rem Log-Datei erstellen
@echo %date% um %time% ALT *** %WAN_IP% - NEU *** %WAN_IP_NEW%>> LOG/%cdate%_IP-History.txt
echo Neue IP: %WAN_IP_NEW%
ENDLOCAL

echo Starte Modem neu curl.exe "http://192.168.0.1/loginData.htm?…IN_BUTTON=Login" –c "cookies.txt" curl.exe "http://192.168.0.1/reset.htm?reset_modem=Restart+Cable+Modem