script de connexion par ssh

Version imprimable

25/07/2005, 14h25
black_code

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
25/07/2005, 15h01
2Eurocents

La réponse se trouve dans : http://perl.developpez.com/cpan2.gif

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

j'ai trouvé finalement
donc voici le code :

Code:

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";

:wink: