Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use warnings;
- use strict;
- use Net::Appliance::Session;
- my $host = '<my_host>';
- my $user = '<my_user>';
- my $pass = '<my_password>';
- my $session = Net::Appliance::Session->new( personality => 'cisco', host => $host, transport => 'SSH', );
- $session->connect( username => $user, password => $pass ) or die "Cannot Connect! : $!";
- my @output = $session->cmd('show version');
- $session->close;
- print join("n",@output);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement