Discussion :

[Mimiche]

Bonjour,

Je suis en train de faire mon TFE et je dois réaliser un programme qui va me permettre de lister les ports utiliser. Par exemple, pour un certain routeur /switch je dois retourné les statuts des différents ports. Soit il sont active ou non active. Ex: 40 port utilisés - 8 ports libres. Je souhaite réaliser cela en perl.

Merci,

[Skanking]

Salut Mimiche ,


Je cherche a realiser le meme type de script pour mes switch , en faisant mes recherches je suis tombé sur le module Net::SNMP qui semble adapter a ce que l(on veut faire ainsi grace a la MIB de ton equipement tu pourra recuperer une masse d'information dont l'etat de tes ports.

Je profite que le sujet est lancé pour vous parler de mon probleme , je souhaite dans le script faire une bouble avec a 'linterrieur la requete snmp incrementé a chaque fois pour avoir tous les port s ( du switch ou routeur ) , apres recherche je me suis appercu que les index des ports sur mon switch (3com 5500 ) était 444500 pour le port 1 , 444508 pour 2 ...ect incrementé de 8 ( je ne sais d'ailleurs pas pourquoi) jusque la cela ne me pose pas de probleme .
les ennuis arrive quand je fais une pile de switch ( 5 switch avec 1 ip d'administration) les index sont different entre les unité de la pile par exemple switch 1 1-(444500, 2-444508, 3-444516) switch 2 ( ca passe a, pour le port 1- 15458 , 2- 15462, 3-15470) puis tjrs sans logique switch 3 (3-152600, 4-152608, 5-15616)

je chercher comme Mimiche quelqu"un qui a deja fait un script du meme genre (notamment pour des switch 3com ) ou qui pourrais nous orienter

d'avance merci

[Skanking]

Je me rapproche du but voici le code :

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
20
21
22
#!/usr/bin/perl -w
 
use SNMP;
 
 
$session = new SNMP::Session(DestHost => $ARGV[0],
 				     Community => $ARGV[1],
				     Version   => 1,
                             UseSprintValue => 1);
die "session creation error: $SNMP::Session::ErrorStr" unless (defined $session);
 
$vars = new SNMP::VarList(['ifDescr'],['ifOperStatus']);
 
($int,$state) = $session->getnext($vars);
die $session->{ErrorStr} if ($session->{ErrorStr});
 
while (!$session->{ErrorStr} and $vars->[0]->tag eq "ifDescr")
{
          print "$int -> $state\n";
          ($int,$state) = $session->getnext($vars);
 
};

je cherche maintenant a creer le compteur pour les port up / down

[Mimiche]

Merci,

Je viens d'essayer votre code mais j'ai un mesasge d'erreur. (can't locate SNMP.pm) Il faut installer quelque chose de spécial pour utiliser SNMP?



Mimiche

[Skanking]

oui il te faut le module SNMP , pour moi sur debian c'est le package "libnet-snmp-perl"

[Mimiche]

Bonjour,

Tu avances dans ton prog ? As tu réussis à faire le compteurs pour les ports up et down ?

Je doit en faire un aussi mais je n avance pas vite... J suis un peu novice.

Merci,