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

Reply via email to