用Perl语言读取网络设备SNMP信息
发布时间:2020-12-16 00:19:17 所属栏目:大数据 来源:网络整理
导读:#!/usr/bin/perluse strict;use Net::SNMP;my ($session,$error) = Net::SNMP-session( -hostname = shift || '133.109.9.78',-community = shift || 'public',-port = shift || 161 );if (!defined($session)) { printf("ERROR: %s.n",$error); exit 1;}my
#!/usr/bin/perl use strict; use Net::SNMP; my ($session,$error) = Net::SNMP->session( -hostname => shift || '133.109.9.78',-community => shift || 'public',-port => shift || 161 ); if (!defined($session)) { printf("ERROR: %s.n",$error); exit 1; } my $sysUpTime = '1.3.6.1.2.1.1.1.0'; my $result = $session->get_request( -varbindlist => [$sysUpTime] ); if (!defined($result)) { printf("ERROR: %s.n",$session->error); $session->close; exit 1; } printf("sysUpTime for host '%s' is %sn",$session->hostname,$result->{$sysUpTime} ); $session->close; exit 0; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |