Perl Telnet 登录 Cisco交换机,并执行命令。
来源:互联网 发布:java商城项目说明 编辑:程序博客网 时间:2024/05/22 05:30
#! /usr/bin/perl -w
use strict;
use 5.010;
22.10.100.11
);
foreach my $ip (@hostip1) {
my $conn = Net::Telnet::Cisco->new(Host => $ip);
my $vtyPass = 'xxxxxxxx'';
my $enaPass = 'xxxxxxxx';
$conn->login(Password => $vtyPass);
$conn->enable($enaPass);
my $cmd = 'show run';
@output = $conn->cmd($cmd);
print "Output: @output";
$conn->close;
use strict;
use 5.010;
use Net::Telnet::Cisco;
#需要安装这个module, 需要有internet连接, windows安装命令如下
#c:\> cpan
#cpan> install Net::Telnet::Cisco;
# hostip1 数组中可放入多个交换机地址,在循环中执行命令。
22.10.100.11
);
foreach my $ip (@hostip1) {
my $conn = Net::Telnet::Cisco->new(Host => $ip);
my $vtyPass = 'xxxxxxxx'';
my $enaPass = 'xxxxxxxx';
$conn->login(Password => $vtyPass);
$conn->enable($enaPass);
my $cmd = 'show run';
@output = $conn->cmd($cmd);
print "Output: @output";
$conn->close;
}
# 参考网址 http://www.litvip.com/2011/08/29/554
- Perl Telnet 登录 Cisco交换机,并执行命令。
- 利用Perl中的Cisco模块登录公司交换机
- 远程telnet并执行命令
- telnet自动登录并执行任务
- Cisco交换机命令清单
- cisco交换机命令汇总
- cisco交换机配置命令
- 自动登录telnet执行若干命令zz
- C-F3. Telnet登录 ❀ C3750-E ❀ 思科 (CISCO) 交换机
- lanswich交换机远程TELNET登录
- Huawei交换机配置Telnet登录
- CISCO交换机配置命令大全
- CISCO交换机配置命令大全
- Cisco交换机常用配置命令
- Cisco交换机常用配置命令
- CISCO交换机配置命令大全
- CISCO交换机配置命令大全
- Cisco 交换机基本配置命令
- [转载]用dumper打开运行程序的core dump功能
- ORA-00604 递归 SQL 级别 1 出现错误,ORA-01000 超出打开游标的最大数
- oracle中or查询慢,最好使用union all代替
- Get process's navigation path by using process name
- Oracle分组排名
- Perl Telnet 登录 Cisco交换机,并执行命令。
- 隐藏datalist指定列
- mysql中bigint、int、mediumint、smallint 和 tinyint的语法介绍
- js复习之-基本语法及数据类型
- asp.net Ajax Post 请求 一般处理程序
- 因为背后的艰辛和专注,才有了芭蕾舞台上的优雅美好
- MVVM模式结合MVVMlight框架的应用(20)
- 在某个目录下查找包含某个字段的文件
- vs2008编译QT,Boost,OpenCV步骤记录