mibwalk.pl
上传用户:wxp200602
上传日期:2007-10-30
资源大小:4028k
文件大小:0k
源码类别:

SNMP编程

开发平台:

Unix_Linux

  1. # snmpwalk of entire MIB
  2. # stop on error at end of MIB
  3. use SNMP 1.8;
  4. $SNMP::use_sprint_value = 1;
  5. my $host = shift || localhost;
  6. my $comm = shift || public;
  7. $sess = new SNMP::Session(DestHost => $host, Community => $comm);
  8. $var = new SNMP::Varbind([]);
  9. do {
  10.   $val = $sess->getnext($var);
  11.   print "$var->[$SNMP::Varbind::tag_f].$var->[$SNMP::Varbind::iid_f] = ",
  12.         "$var->[$SNMP::Varbind::val_f]n";
  13. } until ($sess->{ErrorStr});