Discussion :

[allyson_programmeuse]

Bonjour à tous,

Voici mon problème : je cherche à récupérer pour chaque port switch (une centaine ) l'adresse mac connectée avec comme resultat un tableau ou je puisse visualiser l'ip en question, le type du switch (cisco ou H3C).

J'ai essayé maintes fois toutefois sans aucun résultat.Si quelqu'un a déjà réalisé un script en perl pour ce genre de situation , je lui serais reconnaissante de son aide.

[thierry.chich]

Ben déjà, tu as un problème de concept réseau. Il y a une adresse mac pour chaque port du switch, mais pas forcément une adresse IP. Il faut donc que tu saches précisément ce que tu veux obtenir.
Il y a au moins deux façon d'obtenir ce que tu veux, l'une étant plus complète et beaucoup plus robuste que l'autre.
La méthode que je te recommande, c'est snmp ! L'accès au snmp des switches te donnera tout ce que tu veux savoir et même au-delà.
Pour répondre plus précisément, il me faut plus de détail sur ce que tu veux faire et tes contraintes.

[allyson_programmeuse]

voila le code que j'ai réalisé afin de récuperer les adresse mac , pourtant ca ne marche pas
merci de me fournir des explication car j'obtiens une erreur : "can't locate file Net/Telnet/Cisco in @inc "
pourtant j'ai bien installé le module

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
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl
use strict; use warnings;
use Net::Telnet::Cisco; 
 
my $IP_Switch;
my $session = Net::Telnet::Cisco->new(Host => '192.168.1.1',
					Prompt => '/.*\#/');
$session->login('admin', 'turlututu');
 
# Execute la commande
my @output = $session->cmd('show mac-address-table | exclude CPU');
 
# Sauvegarde dans un fichier
 
# Variable des fichiers
my $clean_mac_filename = "macport_propre.tmp";
 
# Ouverture en __écriture__ du fichier de MAC final
open my($clean_mac_file), '>', $clean_mac_filename
  or die "Impossible d'ouvrir $clean_mac_filename : $!\n";
 
# Remplissage du fichier MAC à partir de @output
foreach ( @output ) {
  chomp;
  if ( m/\w{4}\.\w{4}\.\w{4}/ ) { # si la ligne contient une adresse
    print {$clean_mac_file} join(' ',(split)[1,3]);
  }
}
close $clean_mac_file;
 
__END__

[mamax29]

Salut,

Pourtant ton erreur indique bien que le module n'est pas correctement installé.
Quelle version/distribution de perl as-tu? Quel OS?

Comment as-tu lancé l'installation du module et as-tu le log de l'installation de ton module?

Sinon, ouvre un terminal et lance la commande suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 perl -MNet::Telnet::Cisco -e 1

Si tu as un message c'est que le module n'est pas installé

[allyson_programmeuse]

en fait je crois que tout le code est mauvais ! si quelqu'un a deja réalisé un script pour recuperer les adresse mac ca serait cool ! les equipements sont des switch cisco !