hi !
I try to run the falowing script.
I can connect to the host and authenticate then send a command; but the
script hangs (like a loop !)
use Net::SSH::W32Perl;
my %args;
$args{debug} = 1;
$args{protocol} = 2;
my $host = 'X.X.X.X';
my $ssh = new Net::SSH::W32Perl($host,%args);
$ssh->login('user','pass');
my ($out, $err, $exit) = $ssh->cmd('ls');
print $out;
print $err;
Thanks for your help.
B.R
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs