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 : Sélectionner tout - Visualiser dans une fenêtre à part
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