SSH Script Needed

Hi,
ssh will never read passwords from stdin or from a file, nor from the command line.
You will either have to establish public key authentication or use something like expect.
wmp
 

Passing plain text password on the command line is unsafe and I doubt ssh supports it. Instead you should go for private/public key authentication using agent forwarding.

Put  the commands you want to execute on each server into a file say, cmds.sh, and copy that file first to each server using scp. Then ssh to the server, chmod +x cmds.sh and run the file. Assuming you want to copy the file to your HOME/bin directory, copy the script below as execssh.pl and run as execssh.pl <serverlist.txt:

#!/usr/bin/perl
system ("scp cmds.sh server:~/bin");

system ("ssh <userid>@$server chmod +x ~/bin/cmds.sh;~/bin/cmds.sh") while $server <>;

Dear,

Something like this should do the work :

my $ssh = Net::SSH::Perl->new("host1");
    $ssh->login("user1", "pass1");

    $ssh->cmd("foo");

Best Regards

woolmilkporc:
i want to use expect ?
Can you help me with the script for that ?

MadShiva:
Getting the following errors following your procedure
Can't locate object method "new" via package "Net::SSH::Perl" (perhaps you forgot to load "Net::SSH::Perl"?) at ./sample.sh line 2.
 

MadShiva:
hey i did not try this script but a question .. I need the serers to be read from a file .. i want to put all the servers in a file and the uid and pwd for all these servers are same .... instead of giving the hostname everytime....

Hi,

I've altered MAdShiva's code for you a little so that it reads in from a file.

 

#! /usr/bin/perl -w
use strict;
use Net::SSH::Perl;
use Net::SSH::Perl::Auth;

use Net::SSH::Perl;

if ($#ARGV != 2) {
 print "usage: perl $0 user password /path/listofservers.txt\n";
 exit;
}

$user = $ARGV[0];
$pass = $ARGV[1];
$inputfile = $ARGV[2];
open(INFILE, "$inputfile") || die "Error opening input $inputfile: $!";
        while (<INFILE>){
                chomp;
                my $host=$_;
                my $ssh = Net::SSH::Perl->new($host);
				$ssh->login($user, $pass);
				my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
				print "$host:\n";
				print "$stdout\n";
				$ssh=undef;
        }
close(INFILE);

Select allOpen in new window

APNFSSC:

can you explain me .. how it works ?

so that i can try execute it tomorrow

if you copy and paste the code into a script called remote_execute.pl

then execute and alter the values of username/password/filelocation

perl remote_execute.pl username password /path/to/listofhosts.txt

You will also need to ensure you have perl and the Net::SSH::Perl module installed on the server you are executing the script on.

Depending on your linux distribution installing Net::SSH::Perl can either be easy or hard.

i dont have this intsalled in unix Net::SSH::Perl

but i want to close this as it has been opened for so many days