Hola a todos, soy novato por ahí y en estas cosas, me interesa sacar a un fichero (que es conocido xxx.txt) de un sistema por TELNET (23) una vez al días, y me gustaría si agüen sabe como lo ago con solo “clik”.
 En FTP lo e conseguido…. Pero con TELNET por puerto 23, asta ahora NO
Quero algo parecido a esta .bat: si algún me da una idea.

echo off
cls
set %1
set zi=00
set luna=00
set an=00
if %OS% == Windows_NT goto winnt
goto win9x
:winnt
date /t > date.txt
goto zi
:win9x
date <intro.txt |find "actual" >date.txt
goto zi
:zi
find "01/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=01
find "02/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=02
find "03/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=03
find "04/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=04
find "05/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=05
find "06/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=06
find "07/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=07
find "08/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=08
find "09/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=09
find "10/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=10
find "11/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=11
find "12/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=12
find "13/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=13
find "14/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=14
find "15/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=15
find "16/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=16
find "17/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=17
find "18/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=18
find "19/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=19
find "20/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=20
find "21/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=21
find "22/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=22
find "23/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=23
find "24/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=24
find "25/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=25
find "26/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=26
find "27/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=27
find "28/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=28
find "29/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=29
find "30/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=30
find "31/" <date.txt
if errorlevel 0 if not errorlevel 1 set zi=31
:luna
find "/01/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=01
find "/02/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=02
find "/03/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=03
find "/04/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=04
find "/05/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=05
find "/06/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=06
find "/07/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=07
find "/08/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=08
find "/09/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=09
find "/10/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=10
find "/11/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=11
find "/12/" <date.txt
if errorlevel 0 if not errorlevel 1 set luna=12
:an
find "2004" <date.txt
if errorlevel 0 if not errorlevel 1 set an=04
find "2005" <date.txt
if errorlevel 0 if not errorlevel 1 set an=05
find "2006" <date.txt
if errorlevel 0 if not errorlevel 1 set an=06
:carpeta
cls
md %1%zi%-%luna%-%an%
md > %1%zi%-%luna%-%an%.txt
date /t >> %1%zi%-%luna%-%an%.txt
move %1%zi%-%luna%-%an%.txt %1%zi%-%luna%-%an%\%1%zi%-%luna%-%an%.txt
echo USER 123456 >> ftp.dll
echo 123456 >> ftp.dll
echo get xxx.txt %1%zi%-%luna%-%an%\my.txt >> ftp.dll
echo quit >> ftp.dll
echo exit
ftp -n -s:ftp.dll 127.0.0.1
del ftp.dll
del date.txt
quit
:end