No radius is enabled.
This is the script, might help you.
use Net::Telnet::Cisco;
use Timestamp::Simple qw(stamp);
use Time::HiRes qw(sleep);
my $user = "X";
my $pass = "X";
my $backup_host = '192.168.99.206';
my $dt = stamp;
my $enable_pass = "X";
foreach my $device ('192.168.99.101','192.168.99.102','192.168.99.103','192.168.99.104','192.168.99.105','192.168.99.106','192.168.99.108', '192.168.99.107', '192.168.99.109','192.168.99.110','192.168.99.111','192.168.99.112') {
my $session; # Declare the session variable outside the eval block
eval {
$session = Net::Telnet::Cisco->new(
Host => $device,
Timeout => 60
);
$session->login($user, $pass);
if ($session->enable($enable_pass)) {
my @output = $session->cmd('show privilege');
print "My privileges on $device: @output";
$session->cmd("copy running-config tftp://$backup_host/$device-$dt.cfg");
print "Backup of $device completed.\n";
} else {
warn "Can't enable on $device: " . $session->errmsg;
}
};
if ($@) {
if ($@ =~ /Connection forcibly closed by the remote host/) {
warn "Connection forcibly closed by the remote host for $device";
} elsif ($@ =~ /pattern match timed-out/) {
warn "Timeout occurred for $device";
} else {
warn "Error occurred for $device: $@";
}
}
$session->close if $session; # Close the session if it exists
sleep 3; # Wait for 3 seconds before moving to the next switch
}
