ssh-sftp-perl-users

[Ssh-sftp-perl-users] Net::SSH::Perl with enterasys switches

[Nicholas S. <pro...@ya...>]

Hey everyone,

    I am a Network Technician for Morrisville State College and Im attempting to use Net::SSH::Perl to SSH into all the switches we have on campus and retrieve some data from them.  Unfortunately this isn't going my way.  I have below my code and debug output.


Help with this would make my day,

Thanks,

Nicholas


Code:

#!/usr/bin/perl

use Net::SSH::Perl;

# get the addresses from the a file the user inputs

#ask the user where the file is
print "Please enter the path to the list of devices:  ";
$filepath = <STDIN> ;
open(IPS, $filepath);
@addyarray = <IPS>;
close(IPS);

#ask the user what the username and password are
print "Please enter the username to login as:  ";
$user = <STDIN> ;
chomp($user);

#ask the user what the password is
print "Please enter the password for " . $user . ":";
$pass = <STDIN> ;
chomp($pass);

#ask the user where the out file is
print "Please enter the filename you want the data to be placed in:  ";
$outfile = <STDIN> ;
chomp($outfile);

#open the file to append data
open(OUT, ">>$outfile");

#below is a loop that gets the IP and connects to the device via SSH
foreach $address (@addyarray)    # Visit each address in turn
                                                      # and call it address
{
print "currently working on device " . $address;
my $ssh = Net::SSH::Perl->new($address, debug => true);
$ssh->login($user, $pass);
my $cmd="show system";
my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print OUT "-----------------------------------------------\n";
print OUT "Information for " . $address;
print OUT "-----------------------------------------------\n";
print OUT "output for command" . $cmd;
print OUT $stdout . "\n";
print OUT "errors for command" . $cmd;
print OUT $stderr . "\n";
print OUT "\n\n";

my $cmd="show ver";
my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print OUT "---------------------\n";
print OUT "output for command" . $cmd;
print OUT $stdout . "\n";
print OUT "errors for command" . $cmd;
print OUT $stderr . "\n";
print OUT "\n\n\n";
}

#close the output file and save changes
close(OUT);

#tell the user when we are done
print "Information retrieval complete \n";


Debug info:

currently working on device 10.255.101.198
riley: Reading configuration data /home/nicholas/.ssh/config
riley: Reading configuration data /etc/ssh_config
riley: Connecting to 10.255.101.198
, port 22.
riley: Remote version string: SSH-2.0-FreSSH.0.8

riley: Remote protocol version 2.0, remote software version FreSSH.0.8
riley: Net::SSH::Perl Version 1.30, protocol version 2.0.
riley: No compat match: FreSSH.0.8.
riley: Connection established.
riley: Sent key-exchange init (KEXINIT), wait response.
riley: Algorithms, c->s: 3des-cbc hmac-sha1 none
riley: Algorithms, s->c: 3des-cbc hmac-sha1 none
riley: Entering Diffie-Hellman Group 1 key exchange.
riley: Sent DH public key, waiting for reply.
riley: Received host key, type 'ssh-dss'.
riley: Permanently added '10.255.101.198
' to the list of known hosts.
riley: Computing shared secret key.
riley: Verifying server signature.
riley: Waiting for NEWKEYS message.
riley: Enabling incoming encryption/MAC/compression.
riley: Send NEWKEYS, enable outgoing encryption/MAC/compression.
riley: Sending request for user-authentication service.
riley: Service accepted: ssh-userauth.
riley: Trying empty user-authentication request.
riley: Authentication methods that can continue: password.
riley: Next method to try is password.
riley: Trying password authentication.
riley: Login completed, opening dummy shell channel.
riley: channel 0: new [client-session]
riley: Requesting channel_open for channel 0.
riley: channel 0: open confirm rwindow 0 rmax 16384
riley: Got channel open confirmation, requesting shell.
riley: Requesting service shell on channel 0.
riley: channel 1: new [client-session]
riley: Requesting channel_open for channel 1.
riley: Entering interactive session.
riley: Channel open failure: 1: reason 1: unable to create channel
riley: channel 2: new [client-session]
riley: Requesting channel_open for channel 2.
riley: Entering interactive session.
riley: channel 0: rcvd close
riley: channel 0: output open -> drain
riley: channel 0: input open -> closed
riley: channel 0: close_read
Information retrieval complete 

output to file:

-----------------------------------------------
Information for 10.255.101.198
-----------------------------------------------
output for commandshow system
errors for commandshow system


---------------------
output for commandshow ver
errors for commandshow ver




      ____________________________________________________________________________________
Never miss a thing.  Make Yahoo your home page. 
http://www.yahoo.com/r/hs

Re: [Ssh-sftp-perl-users] Net::SSH::Perl with enterasys switches

[Isma <ism...@gm...>]

Hi,

You're lucky (I believe)
I work too on Enterasys switches. Use rather Net::Telnet::Cisco :
method $session->cmd() , it works for me !
I want to change passwords on my switches (A2/B2/V2) :commands are differents
for :
-A2/B2
-V2

Here's a code snippet exple :

foreach(@hostname) {
  $session = Net::Telnet::Cisco->new
    (
     Host => $adresse{$_},
     Prompt => '/.*[\$>#]/',
     Input_log => "$adresse{$_}".'_switch.log',
     Errmode =>"return"
    );

  $i++; print "$_ | $adresse{$_} | $type{$_} ";

  if (ref $session ne "Net::Telnet::Cisco") {
    print "$adresse{$_} not reachable\n";
  }
  else {
    $session->login('admin',$connect);
    $erreur=$session->errmsg();
    if (!$erreur) {
      if ($type{$_} eq 'SW_V2') {
        $session->cmd('configure');
        $session->cmd("username admin password 0 $pwd");
        $session->cmd('exit');
        $session->cmd('copy running-config startup-config');
        $session->cmd('');
        $session->cmd('exit');
      }
      else {
        $session->cmd('set password admin');
        $session->cmd("$pwd");
        $session->cmd("$pwd");
        $session->cmd('save config');
        $session->cmd('exit');
      }
      $session->close;
    }
    else {
      if ($erreur =~ /[Aa]uthentication/) {
        print "$adresse{$_}  => authentication failed\n";
      }
      else {
        print "$adresse{$_} :  could not log in: $erreur\n";
      }
    }
  }
}




2008/2/19, Nicholas Scholl <pro...@ya...>:
> Hey everyone,
>
>     I am a Network Technician for Morrisville State College and Im attempting to use Net::SSH::Perl to SSH into all the switches we have on campus and retrieve some data from them.  Unfortunately this isn't going my way.  I have below my code and debug output.
>
>
> Help with this would make my day,
>
> Thanks,
>
> Nicholas
>
>
> Code:
>
> #!/usr/bin/perl
>
> use Net::SSH::Perl;
>
> # get the addresses from the a file the user inputs
>
> #ask the user where the file is
> print "Please enter the path to the list of devices:  ";
> $filepath = <STDIN> ;
> open(IPS, $filepath);
> @addyarray = <IPS>;
> close(IPS);
>
> #ask the user what the username and password are
> print "Please enter the username to login as:  ";
> $user = <STDIN> ;
> chomp($user);
>
> #ask the user what the password is
> print "Please enter the password for " . $user . ":";
> $pass = <STDIN> ;
> chomp($pass);
>
> #ask the user where the out file is
> print "Please enter the filename you want the data to be placed in:  ";
> $outfile = <STDIN> ;
> chomp($outfile);
>
> #open the file to append data
> open(OUT, ">>$outfile");
>
> #below is a loop that gets the IP and connects to the device via SSH
> foreach $address (@addyarray)    # Visit each address in turn
>                                                       # and call it address
> {
> print "currently working on device " . $address;
> my $ssh = Net::SSH::Perl->new($address, debug => true);
> $ssh->login($user, $pass);
> my $cmd="show system";
> my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
> print OUT "-----------------------------------------------\n";
> print OUT "Information for " . $address;
> print OUT "-----------------------------------------------\n";
> print OUT "output for command" . $cmd;
> print OUT $stdout . "\n";
> print OUT "errors for command" . $cmd;
> print OUT $stderr . "\n";
> print OUT "\n\n";
>
> my $cmd="show ver";
> my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
> print OUT "---------------------\n";
> print OUT "output for command" . $cmd;
> print OUT $stdout . "\n";
> print OUT "errors for command" . $cmd;
> print OUT $stderr . "\n";
> print OUT "\n\n\n";
> }
>
> #close the output file and save changes
> close(OUT);
>
> #tell the user when we are done
> print "Information retrieval complete \n";
>
>
> Debug info:
>
> currently working on device 10.255.101.198
> riley: Reading configuration data /home/nicholas/.ssh/config
> riley: Reading configuration data /etc/ssh_config
> riley: Connecting to 10.255.101.198
> , port 22.
> riley: Remote version string: SSH-2.0-FreSSH.0.8
>
> riley: Remote protocol version 2.0, remote software version FreSSH.0.8
> riley: Net::SSH::Perl Version 1.30, protocol version 2.0.
> riley: No compat match: FreSSH.0.8.
> riley: Connection established.
> riley: Sent key-exchange init (KEXINIT), wait response.
> riley: Algorithms, c->s: 3des-cbc hmac-sha1 none
> riley: Algorithms, s->c: 3des-cbc hmac-sha1 none
> riley: Entering Diffie-Hellman Group 1 key exchange.
> riley: Sent DH public key, waiting for reply.
> riley: Received host key, type 'ssh-dss'.
> riley: Permanently added '10.255.101.198
> ' to the list of known hosts.
> riley: Computing shared secret key.
> riley: Verifying server signature.
> riley: Waiting for NEWKEYS message.
> riley: Enabling incoming encryption/MAC/compression.
> riley: Send NEWKEYS, enable outgoing encryption/MAC/compression.
> riley: Sending request for user-authentication service.
> riley: Service accepted: ssh-userauth.
> riley: Trying empty user-authentication request.
> riley: Authentication methods that can continue: password.
> riley: Next method to try is password.
> riley: Trying password authentication.
> riley: Login completed, opening dummy shell channel.
> riley: channel 0: new [client-session]
> riley: Requesting channel_open for channel 0.
> riley: channel 0: open confirm rwindow 0 rmax 16384
> riley: Got channel open confirmation, requesting shell.
> riley: Requesting service shell on channel 0.
> riley: channel 1: new [client-session]
> riley: Requesting channel_open for channel 1.
> riley: Entering interactive session.
> riley: Channel open failure: 1: reason 1: unable to create channel
> riley: channel 2: new [client-session]
> riley: Requesting channel_open for channel 2.
> riley: Entering interactive session.
> riley: channel 0: rcvd close
> riley: channel 0: output open -> drain
> riley: channel 0: input open -> closed
> riley: channel 0: close_read
> Information retrieval complete
>
> output to file:
>
> -----------------------------------------------
> Information for 10.255.101.198
> -----------------------------------------------
> output for commandshow system
> errors for commandshow system
>
>
> ---------------------
> output for commandshow ver
> errors for commandshow ver
>
>
>
>
>       ____________________________________________________________________________________
> Never miss a thing.  Make Yahoo your home page.
> http://www.yahoo.com/r/hs
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Ssh-sftp-perl-users mailing list
> Ssh...@li...
> https://lists.sourceforge.net/lists/listinfo/ssh-sftp-perl-users
>