pass username and password throgh ssh

[dell-switch] / dell-switch.pl

diff --git a/dell-switch.pl b/dell-switch.pl
index 9546561..2a7a89d 100755 (executable)
--- a/dell-switch.pl
+++ b/dell-switch.pl
@@ -20,7 +20,7 @@ my @commands = @ARGV;
 @commands = <DATA> unless @commands;
 
 warn "## $ip\n";
-my $ssh = Net::OpenSSH->new('auto@'.$ip);
+my $ssh = Net::OpenSSH->new($ip, user => $login, passwd => $passwd);
 my ($pty ,$pid) = $ssh->open2pty();
 if ( ! $pty ) {
        warn "ERROR: can't connect to $ip, skipping";