Net::Telnet::Cisco修改CISCO交换机密码-原创

 

use Net::Telnet::Cisco;
my @ip=qw/192.168.1.10
          192.168.1.11
          192.168.1.12/;
my ($username,$passwd,$en_passwd,$new_passwd,$new_en_passwd,$log)=("","cisco2008","cisco","cisco2008","cisco2008","input.txt");
for my $host(@ip)
{
  my $session = Net::Telnet::Cisco->new (Host => $host,Input_log=>"$log");
  $session->login($username,$passwd);
    if ($session->enable($en_passwd))
    {
   
       $session->cmd('config terminal');
       $session->cmd('line vty 0 4');
       $session->cmd('login');
       $session->cmd("password $new_passwd"); #modify $passwd

       $session->cmd("enable secret $new_en_passwd");
       $session->cmd('exit');
     }
     else
    {
     warn "Can't enable: " . $session->errmsg;
    }
  $session->close;
}