世人皆醒我独醉perlmason.blog.chinaunix.net
mouse.rice
系统运维
全部博文(19)
2013年(6)
2011年(2)
2009年(4)
2008年(7)
haoxing1
26702009
心随行
y6cmE
skyyy90
majormy
perlmaso
filippo3
david_95
分类:
2008-10-22 09:13:34
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;}
上一篇:What is /dev/shm and its practical usage ?
下一篇:获取perl脚本当前行行号和脚本名称
登录 注册