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

Modules Perl Discussion :

script de connexion par ssh


Sujet :

Modules Perl

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    juillet 2005
    Messages
    134
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2005
    Messages : 134
    Points : 107
    Points
    107
    Par défaut script de connexion par ssh
    bonjour voila je cherche un moyen de me connecter a un serveur en ssh "en fournissant l'adresse ip et le mot de passe" pour executer des commande du genre smbldap-useradd.

    quel package dois-je utiliser pour effectuer la connexion ssh et comment le faire?

    merci de votre aide

  2. #2
    Membre expert
    Avatar de 2Eurocents
    Profil pro
    Inscrit en
    septembre 2004
    Messages
    2 177
    Détails du profil
    Informations personnelles :
    Âge : 53
    Localisation : France

    Informations forums :
    Inscription : septembre 2004
    Messages : 2 177
    Points : 3 166
    Points
    3 166
    Par défaut
    La réponse se trouve dans :

    Il doit suffire d'utiliser le module Net::SSH.

    Accessoirement, dans la galaxie Net::LDAP::*, il y a peut être même de quoi faire ton bonheur en attaquant directement le serveur, sans la couche intermédiaire.

    Bon courage

    2Eurocents
    La FAQ Perl est par ici
    : La fonction "Rechercher", on aurait dû la nommer "Retrouver" - essayez et vous verrez pourquoi !

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    juillet 2005
    Messages
    134
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2005
    Messages : 134
    Points : 107
    Points
    107
    Par défaut
    j'ai trouvé finalement
    donc 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
     
    use Net::SSH::Perl;
     
    my $ssh = Net::SSH::Perl->new($host);
    $ssh->login($name, $mdp);
    my($stdout, $stderr, $exit) = $ssh->cmd("ifconfig"); # comme exemple
    print "\n\nle resultat de la commande hostname : $stdout";
    print "\nle resultat de stderr                 : $stderr";
    print "\nle resultat de exit                   : $exit";
    my($stdout, $stderr, $exit) = $ssh->cmd("exit");
    print "\n\nle resultat de la commande exit     : $stdout";
    print "\nle resultat de stderr                 : $stderr";
    print "\nle resultat de exit                   : $exit\nn";

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

Discussions similaires

  1. Connexion par clef SSH
    Par Sephiroth Lune dans le forum Administration système
    Réponses: 0
    Dernier message: 16/11/2014, 11h28
  2. Lancer un script avec commandes en pipeline en arrière plan par SSH
    Par Marty69 dans le forum Shell et commandes GNU
    Réponses: 9
    Dernier message: 23/09/2014, 16h30
  3. Script pour connexion ssh
    Par sinc59 dans le forum Shell et commandes GNU
    Réponses: 5
    Dernier message: 21/05/2013, 20h40
  4. Réponses: 2
    Dernier message: 14/10/2010, 20h36
  5. Réponses: 1
    Dernier message: 05/03/2006, 12h35

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