Runing Remote Command

[neuhru]

Hello Monks,

I can run the command below, enter the password from the command line, and it performs the action I need with no problem.

ssh admin\@10.253.0.1 cli \"enable\" \"run\" \"reload\"

However, I am having problems trying to automate this. How can automate this using a Perl script?

Thanks!

[salva]

Try Net::OpenSSH (more powerfull, doesn't work on Windows) or Net::SSH::Any:

use Net::SSH::Any;

my $ssh = Net::SSH::Any->new('10.253.0.1',
                             user => 'admin',
                             password => $password);

$ssh->error and die "unable to connect to remote machine: " . $ssh->er
+ror;
my ($out, $err) = $ssh->capture2(cli => '"enable"', '"run"', '"reload"
+');
$ssh->error and die "remote command failed: " . $ssh->error;
print $out, $err;

[vinoth.ree]

You can execute commands on remote machines from a Perl script using the Net::SSH::Perl module.

This module allows you to execute a command remotely and receive the STDOUT, STDERR, and exit status of that remote command.

One big advantage of Net::SSH::Perl over other methods is that you can automate the login process, that way you can write fully automated perl scripts, no console interaction is required in order to authenticate in the remote machine.

Ex:

#!/usr/bin/perl 
use Net::SSH::Perl;
 
my $host = "hostname";
my $user = "user";
my $password = "password";
 
#-- set up a new connection
my $ssh = Net::SSH::Perl->new($host);
#-- authenticate
$ssh->login($user, $pass);
#-- execute the command
my($stdout, $stderr, $exit) = $ssh->cmd("ls -l /home/$user");

---

All is well

[thomas895]

CPAN is your friend.
I personally quite like Net::SSH2.