Perl_abcd_monk has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks
I installed the Net::SSH2 module from PPM and trying to connect to remote unix host from windows OS. After running the below code i am getting Error "LINE : Error: "pwd" is not a recognized command"
Below is the code and also the test result once after running the script.I unable to judge weather the script actually succeeded in connecting the host and failed only in executing the the command which i have assigned for $cmd variable in script.Monks, please assist me to figuring out what is actually happening and correct me where i am doing wrong in the script.This is my first post, please ignore if i have not fallowed any posting standards here.BEGIN { push(@INC,'C:\Perl64\site\lib'); } use warnings; use strict; use NET::SSH2; sub is_sshalive; my $host = "XXXX"; # use the ip host to connect my $user = "yyyy"; # your account my $pass = "zzzz"; # your password my $cmd; my $ssh2 = Net::SSH2->new(); $ssh2->debug(1); if ($ssh2->connect($host)) { if ($ssh2->auth_keyboard($user,$pass)) { print "\n Executing command...\n"; $cmd = "pwd"; print " ==> Running $cmd\n"; if(is_sshalive($ssh2) == 1) { print "\nSSH connection died"; exit 1; } else { run_testsuite($cmd, $ssh2); } } else { warn "ssh auth failed.\n"; exit 1; } } else { warn "Unable to connect Host $host \n"; exit 1; } print "test passed done 0\n"; sub run_testsuite { my $cmd = $_[0]; my $ssh2 = $_[1]; my $chan2 = $ssh2->channel(); $chan2->shell(); print $chan2 "$cmd \n"; print "LINE : $_" while <$chan2>; $chan2->close; return 0; } sub is_sshalive { my $ssh2 = $_[0]; if ($ssh2->poll(1000) == 0) { return 0; # passed } else { return 1; #failed } } Below is the partial test result where it is displaying Error Net::SSH2::Channel::read(size = 1, ext = 0) - read 1 bytes - read 1 total LINE : Error: "pwd" is not a recognized command Net::SSH2::poll: timeout = 250, array[1] - [0] = channel - [0] events 1 - libssh2_poll returned 1 - [0] revents 1 Net::SSH2::Channel::read(size = 1, ext = 0)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Problem in connecting to remote unix host via Net::SSH2 from windows machine
by syphilis (Archbishop) on Jun 12, 2017 at 01:31 UTC | |
by salva (Canon) on Jun 12, 2017 at 08:25 UTC | |
by syphilis (Archbishop) on Jun 12, 2017 at 11:56 UTC | |
Re: Problem in connecting to remote unix host via Net::SSH2 from windows machine
by kevbot (Vicar) on Jun 11, 2017 at 18:45 UTC |
Back to
Seekers of Perl Wisdom