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.-
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
@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 |