[PERL] Interrogation MIB Cisco
Bonjour,
Je souhaite actuellement interroger la MIB d'un routeur Cisco en SNMP depuis un script PERL.
Le probleme c'est que je débute en Perl et que mon script ne fonctionne pas :s . Je n'ai pas pu trouver beaucoup d'exemple d'interrogation de mib depuis Perl et la syntaxe que j'emploi et sans doute fausse.
Voila à quoi ressemble cette partie de mon script actuellement.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Informations de connexion en snmp
my ($sesnmp, $error) = Net::SNMP->session(
-hostname => $iprouteur,
-community => shift || 'public',
);
if (!defined($sesnmp)) {
printf("ERROR: %s.\n", $error);
exit 1;
}
my $versionIOS = '1.3.6.1.2.1.1.1.0';
{
# Requete snmp
my @output3 = $sesnmp->get_request(-versionIOS=> $versionIOS);
print "@output3\n";
} |
Si quelqu'un à une idée pour me dépanner c'est volontier :king:
