Estoy realizando la práctica de la universidad y me colocaron a realizar un backup automático de Switch Nortel. Me dijeron que se puede realizar con Perl. El código que manejan acá usando telnet es el siguiente:
Using perl Syntax Highlighting
- use Net::Telnet;
- use Sys::Hostname;
- use Mail::Sender;
- system("cls");
- $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
- $telnet->open ('172.85.45.19');
- $telnet->waitfor('/Username:/i');
- $telnet->print('admin');
- $telnet->waitfor('/password:/i');
- $telnet->print('123456');
- $telnet->waitfor('/\login/i');
- $telnet->print('tftp 172.30.77.99 put 3comoscfg.cfg BkStack1Sw_P1NorteGYI_172_85_45_19.txt');
- sleep(10);
- $telnet->print ('exit');
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
La idea es tener el mismo código pero utilizando ssh y tiene que estar en Windows. Si me podrían orientar será de gran ayuda.
Gracias.
