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