Je cherche à recuperer des informations contenues dans la Mib d'un routeur en SNMP.
Voici une partie du code que j'utilise:
# Informations de connexion en snmp
my ($sesnmp, $error) = Net::SNMP->session(
-hostname => $iprouteur,
-username => 'username',
-password => 'password'
);
if (!defined($sesnmp)) {
printf("ERROR: %s.\n", $error);
exit 1;
}
my $versionIOS = '1.3.6.1.2.1.1.1.0';
# Requete snmp
my $result = $sesnmp->get $versionIOS
print "$result\n"
# Liberation des ressources
$session->close;
$sesnmp->close;
La syntaxe semble erronée, le script ne fonctionne et j'ai un mal fou à trouver des exemple de script d'interrogation d'une MIB en Perl...
Si quelqu'un en connait ou sait me dire ce qui ne va pas dans mon script, ce serait sympa !
Merci à ceux qui ont lu jusqu'ici ! lol
