[PERL] Executer commandes à distances / ssh
Résolu
Bonjour,
Dans le cadre de l'administration de plusieurs serveurs, je cherche a créer un script qui effectue différentes commandes system sur une liste de serveur et qui renvoie les résultats dans un fichier local, le tout via ssh.
Jusqu'à présent, j'ai fait ceci :
Il me renvoie l'erreur "Can't call method "shell" on an undefined value at c:\test3.pl line 12."
L'erreur est la même si j'utilise la méthode exec.
Pouvez vous m'aidez ?
Merci
Dans le cadre de l'administration de plusieurs serveurs, je cherche a créer un script qui effectue différentes commandes system sur une liste de serveur et qui renvoie les résultats dans un fichier local, le tout via ssh.
Jusqu'à présent, j'ai fait ceci :
#!/usr/bin/perl
use Net::SSH2;
use Net::SSH2::Channel;
my $ssh2 = Net::SSH2->new();
$ssh2->method('HOSTKEY', 'aes256-cbc');
$ssh2->connect('@IP') or die "Connexion impossible !\n";
$ssh2->auth_publickey ('root', 'c:/id_rsa.pub', 'c:/identity');
my $cmd = $ssh2->channel();
$cmd->shell('ps -ef');
while (<$cmd>){ print }
Il me renvoie l'erreur "Can't call method "shell" on an undefined value at c:\test3.pl line 12."
L'erreur est la même si j'utilise la méthode exec.
Pouvez vous m'aidez ?
Merci
Configuration: Windows 2000 Firefox 3.0.6
