Автоматизируем бэкап конфигураций для Cisco

Приветствую!

Эта статья представляет из себя только рабочий скрипт. Собственно вот так все скромно. Ну а больше нам ничего не понадобится, кроме Linux/Unix сервера, установленного cron и, конечно же, Perl.

Описание далее…

#!/usr/bin/perl -w
 # (c)  Network Assistant Great Gain 2007
 use strict;
 use Cisco::CopyConfig ();

 my $tftp_ip = '172.16.16.17'; #'tftp.local.ru';
 my $path = 'cisco_backup';

 my @devices  = ('c1845    172.16.16.61 rr11ttEEww',
 'catalyst  172.16.16.62 rr45ttEEww',
 'c3845     172.16.16.63 rr78ttEEww');

 my $filename = 'test.cnf';
 my $cisco = '172.16.16.61';
 my $comm = '123';

 for (@devices) {
 (my $device_name, my $device_ip, my $community) = split(/\s+/);
 my @datetime  = localtime(time);
 $filename = sprintf("$path\/%04u%02u%02u-%02u%02u%02u-$device_name",  $datetime[5]+1900, $datetime[4]+1,$datetime[3],$datetime[2],$datetime[1],$datetime[0]);
 print "$device_name ->  $tftp_ip:$filename... ";
 my $config =  Cisco::CopyConfig->new(Host => $device_ip, Comm => $community);
 if ($config->copy($tftp_ip, $filename)) {
 print "OK\n";
 }
 else {
 print "Error\n";
 print STDERR $config->error();
   }
  }

Собственно:
my $tftp_ip – IP адрес Linux/Unix сервера с предустановленным tftp, crond, perl.
‘c1845 172.16.16.61 rr11ttEEww’ – Имя устройства, его IP, snmp-key с правами rw.

Related posts:

  1. НАШИ СКРИПТЫ: ПОДСЧЕТ ТРАФИКА НА ISA2006 Логи файлов ISA сервера 2000, 2006 хранятся в текстовом формате...
  2. Зашифруйте Ключи Pre-shared в Примере Конфигурации маршрутизатора Cisco IOS Зашифруйте Ключи Pre-shared в Примере Конфигурации маршрутизатора Cisco IOS Содержание...
You can leave a response, or trackback from your own site.

One Response to “Автоматизируем бэкап конфигураций для Cisco”

  1. Wolf:

    А что такое $path?
    И как вообще этот скрипт запустить?

Оставить комментарий

*