@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