clucas's blog

  

Et pour le fun et c'est aussi utile :

use Net::Telnet::Cisco;

$ip=$ARGV[0];
$username=$ARGV[1];
$passwd=$ARGV[2];
$ena_pass=$ARGV[3];

print "$ip $username $passwd $ena_pass\n";

my $session = Net::Telnet::Cisco->new(Host => $ip);
$session->login($username, $passwd);

# Enable mode
if ($session->enable("$ena_pass") ) {
        # To a router
        $session->cmd('terminal length 0');
        @output = $session->cmd('show running-config');
        print "@output\n";
} else {
        warn "Can't enable: " . $session->errmsg;
}
$session->close;