| |
|
Tech Tips10
使用Perl的程式，取得Cisco設備的組態檔
...回技術小秘訣
|
作者：Ben哥
發布日期：2008/1/8 |
|
| |
#!/usr/bin/perl
my $password = $ARGV[0];
my $enable_password = $ARGV[1];
my $host = $ARGV[2];
use Net::Telnet::Cisco;
my $session = Net::Telnet::Cisco->new( Host => "$ARGV[2]" );
$session->login( Password => "$ARGV[0]" );
$session->enable( "$enable_password" );
my @cmds = $session->cmd( 'show run' );
print @cmds;
$session->close;
|
如您有任何問題，歡迎來信給Ben哥喔！
|
|
