Hi,
I'm using the following code:
And receiving the following error:
I'm running the script on Windows XP Pro using ActivePerl 5.8.0, I've tried Net::SSH::W32Perl with no joy either. I believe it has something to do with the services running in the background in Windows, but I have absolutely no idea about how to add 'SSH' as a new service. If anyone has any ideas then I would greatly appreciate the help as I need this script to work as a matter of urgency.
I have googled but without any helpful results.
Thanks in advance.
Rob Waite
I'm using the following code:
Code:
4. use Net::SSH::Perl;
5. use lib "C:/tmp/LIB";
6. require "funcs.pl";
7.
8. $host = "xx.x.xx.xx";
9. $user = "Xxxx";
10. $pass = "xxxxxX";
11.
12. my $ssh = Net::SSH::Perl->new($host);
13. $ssh->login($user, $pass);
14. $cmd = "mysql -p -A";
15. my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
Code:
Can't map service name 'ssh' to port number at C:\tmp\LIB\SSH_test.pl line 12
I have googled but without any helpful results.
Thanks in advance.
Rob Waite