ç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
(…)