Perl模块能批量修改交换机密码么？大约50台

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

1^# mouse.rice 发表于 2008-10-21 08:57

Perl模块能批量修改交换机密码么？大约50台

交换机大多是CISCO，部分华为，约50台。
现想通过PERL批量修改所有交换机的密码，Net::Telnet 可行么,谁弄过？谢谢指点！

解决办法：

use Net::Telnet::Cisco;
my @ip=qw/192.168.1.100    #列举3台
      192.168.1.101
      192.168.1.102/;
my ($username,$passwd,$en_passwd,$new_passwd,$log)=("","cisco","cisco","2008","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('exit');
   }
   else
{
   warn "Can't enable: " . $session->errmsg;
}
  $session->close;
}

bulletming

UID: 6433
帖子: 67
积分: 154
在线时间: 6 小时

2^# bulletming 发表于 2008-10-21 13:05

哥们，你试试吧，有等答案的时间，你也应该做的OK了，交换机设备支持telnet协议，我想Net::Telnet是OK的。出了问题，再拿出来讨论吧

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

3^# mouse.rice 发表于 2008-10-21 13:08

恩，哥们儿，已经测试了，的确不错，更过功能还待发掘。对交换机配置不太了解，一边看PERL模块一边在学CISCO交换机配置手册。
多谢关注！

huifeideluotuo

UID: 17624
帖子: 1
积分: 2
在线时间: 10 分钟

4^# huifeideluotuo 发表于 2008-10-21 13:39

QUOTE:

原帖由 mouse.rice 于 2008-10-21 13:08 发表
恩，哥们儿，已经测试了，的确不错，更过功能还待发掘。对交换机配置不太了解，一边看PERL模块一边在学CISCO交换机配置手册。
多谢关注！

兄弟能够共享下，大家共同学习！

maxxfire

UID: 39267
帖子: 167
积分: 384
在线时间: 1 天 14 小时

5^# maxxfire 发表于 2008-10-21 17:56

既然解决了，能不能贴出来看看呢。。
互相学习嘛～

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

6^# mouse.rice 发表于 2008-10-22 09:00

兄弟，解决办法在1楼，也帮我看看。

bulletming

UID: 6433
帖子: 67
积分: 154
在线时间: 6 小时

7^# bulletming 发表于 2008-11-06 10:31

呵呵，版主应该置顶一下哦