Networking – Cisco Perl Scripting con modulo Net-Telnet-Cisco
Posted in cisco, HelpDesk, Networking, Scripting, Sistemas, soporte, Utilidades on Sep 24th, 2012
Referencias:
- http://search.cpan.org/~joshua/Net-Telnet-Cisco-1.10/Cisco.pm
- http://www.activestate.com/activeperl/downloads
Existen varios módulos de Perl exprofesos para Cisco, voy a probar el módulo Net-Telnet-Cisco
Prerequisitos:
Perl
- linux ya lo tienes por defecto
- Win: Instalo ActiveState Perl ( http://www.activestate.com/activeperl/downloads )
- Instalo el modulo Net-Telnet-Cisco con ppm (el Perl Package Manager)
c:\> ppm install Net-Telnet-Cisco
Edito un script perl, telnet-cisco.pl tal que:
use Net::Telnet::Cisco;
my $session = Net::Telnet::Cisco->new(Host => '192.168.56.254');
$session->login('javcasta', 'unacontraseña');
# Ejecuta un comando
my @output = $session->cmd('show version | include IOS');
print @output;
# Enable mode
if ($session->enable("enable_password") ) {
@output = $session->cmd('show privilege');
print "My privileges: @output\n";
} else {
warn "Can't enable: " . $session->errmsg;
}
$session->close;
Lo ejecuto, y tras conectarse vía telnet me indica la version de IOS del router y mi nivel de privilegios en el router
Para el scripting vía ssh en lugar de telnet, ActivePerl para win no tiene los modulos Net-SSH-Perl
ni Net-SSH-Expect, pero si Net-SSH y Net-SSH-Any.
Y voila 
