#!/usr/bin/perl use warnings; use strict; use SNMP; use Data::Dumper; $Data::Dumper::Useqq = 1; my $switchaddr = '<SET_ME>'; my $community = '<SET_ME>'; my $snmp = SNMP::Session->new ( DestHost => $switchaddr, Community => $community, Version => '2c', ) or die "Unable to connect to $switchaddr\n"; for my $oid (qw/ .1.3.6.1.2.1.2.2 .1.3.6.1.2.1.17.4.3.1.1 /) { print "\nTrying snmpwalk on $oid\n=========================\n"; print scalar `snmpwalk -O n -v 2c -c $community $switchaddr $oid`; print "\nTrying SNMP->gettable on $oid\n=========================\ +n"; my $response; eval { $response = $snmp->gettable ($oid) }; if ($@) { print "FAILED: $@\n"; } else { print Dumper $response; } }
In reply to Re^2: SNMP problems
by ribasushi
in thread SNMP problems
by ribasushi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |