URL: https://linuxfr.org/forums/programmation-perl/posts/un-pitit-snmpwalk Title: Un pitit snmpwalk...? Authors: kowalsky Date: 2006年02月24日T14:46:43+01:00 Tags: Score: 0 J'ai une toute pitite question, si quelqu'un pouvait m'aider, ça m'aiderais bien...! je fais un script pour recuperer des infos sur des equips reseau et les coller dans un fichier en XML. La partie collecte d'info ressemble à ça:
#!/usr/pkg/bin/perl -w use SNMP ; #$ENV{'MIBS'}="ALL"; #Load all available MIBs $SNMP_TARGET = "$ARGV[0]"; $SNMP_COMMUNITY = "decK550"; $SESSION = new SNMP::Session (DestHost => $SNMP_TARGET, Community => $SNMP_COMMUNITY, Version => 1); $LISTMIB = new SNMP::VarList( ['sysLocation'], #0 ['sysName'], #1 ['sysDescr'], #2 ['sysUpTime'], #3 ['ifNumber'] #4 ) ; # Une requette par element du tableau @SNMPRETURN = $SESSION->getnext($LISTMIB); print "$LISTMIB\n"; # Output the results. print "${SNMPRETURN[0]}\n"; #Localisation print "${SNMPRETURN[1]}\n"; #Nom du system print "${SNMPRETURN[2]}\n"; #Descri de l'OS print ${SNMPRETURN[3]}/100 ;print "\n"; #Tmps en 1/100 depuis reboot print "${SNMPRETURN[4]}\n"; #Nombre d'interfaces sur l'equipementMais je ne sais pas faire un snmpwalk, la je ne fais que du getnext, comment faire du walk...? J'ai lu la doc, et il est indiqué que getnext retourne la valeur de la mib et si il y en à une, retourne la mib suivante dans l'arbre. Mais comment je l'a recupère la mib suivante, ça je ne le trouve nul part...!