Thread SNMP query mittels Perl: SNMP query mittels Perl (7 answers)
Opened by tomi at 2005-11-21 16:05

tomi
 2005-11-21 16:05
#36938 #36938
User since
2005-11-21
3 Artikel
BenutzerIn
[default_avatar]
Hi an alle,

Ich habe ein Problem mit SNMP Abfragen bei Perl, bei dem ich nun schon etwas länger sitze und einfach nicht mehr weiter weiss.

Das Skript soll die Interfaces von Cisco Routern abfragen. Soweit funktioniert das ganze auch (mit ifDescr) erhalte ich zB die Descriptions aller Interfaces.

Da Cisco aber Probleme mit Interfaces macht (gelöschte Interfaces werden noch als aktiv angezeigt), wollte ich nun eine neue MIB einbinden, damit ich die OID .1.3.6.1.4.1.9.2.2.1.1.28 verwenden kann.

Mittels snmpwalk -v 1 -c public host .1.3.6.1.4.1.9.2.2.1.1.28 erhalte ich auch das korrekte Ergebnis.
Wenn ich das ganze aber mit dem Perl-Script versuche, erhalte ich jede mal: Unknown Object Identifier (Sub-id not found: (top) -> local)

Ich weiss hier nun echt nicht mehr weiter, zumal es mittels snmpwalk funktioniert. Auch funktioniert das Script auf einer Solaris 6 Maschine...?!?!?

Habt ihr eine Idee woras es liegen könnte, bzw. was ich hier falsch mache?

Liebe Grüße & Vielen Dank
Tomi

PS: anbei noch ein Code Schnippsel:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        my $if_state = new SNMP::VarList(
                                 ["local.2.1.1.28"],
                                 ["ifName"]); # .1.3.6.1.2.1.31.1.1.1.1

       do {
           my ($desc1,$short) = $session->getnext($if_state);
           $index++;

print "DESC: $desc1\n";

       # no response is bad community or dead daemon or other failure...
       if ($session->{ErrorNum}) {
           next if ($session->{ErrorNum}==2);
           $counter++;
           push @$longerr, "$host no session: $session->{ErrorStr}\n";
       }

View full thread SNMP query mittels Perl: SNMP query mittels Perl