BATCH – Captura IP Pública y la sube a servidor FTP.-

Este script lo utilizo para verificar mi dirección IP pública y cuando mi proveedor de internet (VTR) me cambia la IP el script la captura y la sube a mi servidor FTP. Esto lo utilizo para conectarme vía ESCRITORIO REMOTO. Este SCRIPT BATCH, lo ejecuto diariamente mediante una tarea programada.-

    @echo off
    Setlocal ENABLEDELAYEDEXPANSION
    set ruta=c:\Users\juanito\ippublica\
    echo open>%ruta%login.txt
    echo ftp.opera.com>>%ruta%login.txt
    echo anonymous>>%ruta%login.txt
    echo.>>%ruta%login.txt
    echo literal stat>>%ruta%login.txt
    echo close>>%ruta%login.txt
    echo quit>>%ruta%login.txt

    rem Se captura la fecha actual
    for /f "tokens=1-4 delims=/ " %%a in ('date /t') do (set dia=%%a& set mes=%%b& set ano=%%c)
    set fecha=%dia%%mes%%ano%

    rem Se captura la hora actual
    for /f "tokens=1-4 delims=: " %%a in ('time /t') do (set hor=%%a& set min=%%b& set seg=%%c)
    set hora=%hor%-%min%  

    ftp -s:%ruta%login.txt >> %ruta%elip.txt
    del %ruta%login.txt

    for /F "tokens=*" %%a in (%ruta%elip.txt) do ( echo."%%a"|findstr /C:"Connected to" >> %ruta%info.txt )
    del %ruta%elip.txt

    for /F "tokens=*" %%e in (%ruta%info.txt) do (
    echo %%~e > %ruta%info.txt
    )

    for /F "tokens=3 delims= " %%i in (%ruta%info.txt) do (
    echo.
    set dip=%%i
    )
    :consulta_ip
    rem Verifica si la dirección IP ha cambiado, si cambio la sube sube al servidor FTP
    rem y la graba en su directorio para la próxima consulta
      if exist %ruta%%dip% (
              echo.
       )  else  (
              echo %dip%_%fecha%_%hora% > %ruta%%dip%
              echo open ftp.juanito.cl > %ruta%comando_ftp.txt
              echo user juanito@sun.cl abdc123 >> %ruta%comando_ftp.txt
              echo ascii >> %ruta%comando_ftp.txt
              echo lcd ippublica >> %ruta%comando_ftp.txt
              echo put %ruta%%dip% >> %ruta%comando_ftp.txt
              echo bye >> %ruta%comando_ftp.txt
              echo quit >> %ruta%comando_ftp.txt
              ftp -n -s:%ruta%comando_ftp.txt
              del /f /q %ruta%comando_ftp.txt
        )
    del /f /q %ruta%info.txt
    exit