当前位置:编程学习 > 网站相关 >>

用Perl语言读取网络设备SNMP信息

[plain] 
#!/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 %s\n",  
  $session->hostname, $result->{$sysUpTime}   
);  
$session->close;  
exit 0;  
 
补充:Web开发 , 其他 ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,