IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Programmation et administration système Perl Discussion :

Telnets sur un équipement réseaux


Sujet :

Programmation et administration système Perl

  1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    Juillet 2011
    Messages
    158
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Juillet 2011
    Messages : 158
    Points : 88
    Points
    88
    Par défaut Telnets sur un équipement réseaux
    Je souhaite faire un telnet sur un équipement réseaux, et ensuite executer la commande show cdp neighbors pour avoir la liste des voisins. J'ai un script pour cela, mais il me retourne le resultat 1 au lieu de la liste des interfaces. Pouvez vous m'aider à corriger cela svp ?
    Voici mon script :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    !/usr/bin/perl
    use Net::Telnet;
    $telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die');
    $telnet->open('10.10.10.10');
    $telnet->waitfor('/Username: $/i');
    $telnet->print('user');
    $telnet->waitfor('/password: $/i');
    $telnet->print('MDP');
    #$telnet->waitfor('/router1#/i');
    $telnet->waitfor('/#$/i');
    $telnet->print('show cdp neighbors');
    $output = $telnet->waitfor('/#$/i');
    print $output;
    Merci par avance pour votre aide

  2. #2
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mai 2012
    Messages : 17
    Points : 12
    Points
    12
    Par défaut
    euh je suis pas un expert je débute tout juste mais essaye ca

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    my @output = $telnet->send('show cdp neighbors');
    print @output;
    au lieu de :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    $telnet->print('show cdp neighbors');
    $output = $telnet->waitfor('/#$/i');
    print $output;

  3. #3
    Membre régulier
    Homme Profil pro
    Inscrit en
    Juillet 2011
    Messages
    158
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Juillet 2011
    Messages : 158
    Points : 88
    Points
    88
    Par défaut
    Merci , Mais ça n'a rien retourné comme résultat

  4. #4
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mai 2012
    Messages : 17
    Points : 12
    Points
    12
    Par défaut
    peut être :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    $telnet->print('show cdp neighbors');
    my @output = $telnet->waitfor('/#$/i');
    print @output;
    et non pas :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    $telnet->print('show cdp neighbors');
    $output = $telnet->waitfor('/#$/i');
    print $output;
    mais j'y vais à taton xD je ne suis sur de rien

  5. #5
    Membre régulier
    Homme Profil pro
    Inscrit en
    Juillet 2011
    Messages
    158
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Juillet 2011
    Messages : 158
    Points : 88
    Points
    88
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     my @output = $telnet->send('show cdp neighbors');
    print @output;
    Me retourne 18 comme resultat

  6. #6
    Membre régulier
    Homme Profil pro
    Inscrit en
    Juillet 2011
    Messages
    158
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Juillet 2011
    Messages : 158
    Points : 88
    Points
    88
    Par défaut
    et ça maaarche ! Great .
    Merci beaucoup

  7. #7
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Mai 2012
    Messages
    17
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mai 2012
    Messages : 17
    Points : 12
    Points
    12
    Par défaut

  8. #8
    Membre à l'essai
    Homme Profil pro
    Retraité Chef de projet
    Inscrit en
    Juillet 2009
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Retraité Chef de projet
    Secteur : Distribution

    Informations forums :
    Inscription : Juillet 2009
    Messages : 9
    Points : 14
    Points
    14
    Par défaut Demande de complement d'explication
    Citation Envoyé par tissam89 Voir le message
    et ça maaarche ! Great .
    Merci beaucoup
    OK ça marche mais moi aussi j'ai 18 comme résultat q"a tu fais entre temps pour avoir la bonne réponse ?

    OK j'ai trouvé
    le 18 corespond a la longueur du message 'show cdp neighbors'

    c'est pas un "send" qu'il faut utilisé mais un "print"

    $telnet ->print('show cdp neighbors');
    my @output = $telnet ->waitfor('/#$/i');
    print $output; foreach my $p(@output){
    print "$p\n";
    }

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [DDE]Telnet sur Access
    Par karimspace dans le forum Access
    Réponses: 23
    Dernier message: 07/04/2007, 18h51
  2. Information sur les tests réseaux
    Par KasTelo dans le forum Hardware
    Réponses: 6
    Dernier message: 28/07/2006, 20h46
  3. Problème avec Socket et/ou Telnet sur le manager d'Asterisk
    Par gorby69 dans le forum Programmation et administration système
    Réponses: 1
    Dernier message: 21/07/2006, 15h47
  4. Voir les accès telnet sur ma machine
    Par peppena dans le forum Sécurité
    Réponses: 1
    Dernier message: 15/06/2006, 17h27
  5. Documentation sur les composants réseaux
    Par OverCat dans le forum Hardware
    Réponses: 5
    Dernier message: 27/01/2005, 11h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo