pb module NET::SSH::W32Perl
voici le code (normal il me semble...) :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use strict;
use warnings;
use Net::SSH::W32Perl;
use vars qw/
$host $port $user $pass
$ssh $stdout $stderr $exit $command
/;
$host = "@ip";
$port = "22";
$user = "myLog";
$pass = "myPass";
$ssh = Net::SSH::W32Perl->new ($host, port => $port, debug => 1)|| die "Error connexion SSH $host:$port ($!)\n";
$ssh->login($user,$pass) || die "Error Login/Pass $user:$pass ($!)\n";
$command='ls -al';
($stdout, $stderr, $exit) = $ssh->cmd ($command) || die "Error command $command ($!)\n";
print "# $command\n$stdout";
exit 0; |
voici le log (mode debug) :
http://mrx-mry.kicks-ass.net/images/pbSSH.jpg
plantage ligne 17 : $ssh->login :s
pourkoi il me met qu'il teste une empty user-authentification request :s
ça peut être à cause de ça que ça plante non ?
PS : kelk1 sait comment faire pour capturer le texte de la cmd ?
