Experimente o Pancho (http://pancho.lunarmedia.net/) e o CiscoConf 
(disponivel no site da cisco e la no sourceforge.net). Ou ainda la 
no http://www.perlmonks.org/ voce podera encontrar varios scripts 
interessantes.

Boa sorte.

leonardo

--- Em [EMAIL PROTECTED], "maramos76" <[EMAIL PROTECTED]> 
escreveu
> 
> 
> Valeu Edgar! Funcionou que foi uma blz...
> Muito obrigado.
> 
> 
> --- Em [EMAIL PROTECTED], Eng� Kevison Dennys Carrilho 
Bentes
> <[EMAIL PROTECTED]> escreveu
> > 
> > Oi Marco Aur�lio,
> > 
> > Segue um script que est� backupeando uma configura��o de um 
cisco.
> > 
> > 1. No meu freebsd server, estou rodando:
> > expect-5.42.1     A sophisticated scripter based on tcl/tk
> > tcl-8.4.6_1,1       Tool Command Language
> > tk-8.4.6,1           Graphical toolkit for TCL
> > 
> > 2. Meu tftp server tem como diret�rio ra�z /tftpboot.
> > 
> > 3. O backup � salvo no arquivo /tftpboot/rx.2004-10-19/F33.cfg
> > O log � gravado no arquivo /tftpboot/rx.2004-10-19/conf.cisco.log
> > 
> > 4. No arquivo de log, vai ter um sucesso de grava��o ou um n�mero
> > que vai indicar onde o backup parou.
> > 
> > 5. Posso adaptar esse programa para n equipamentos.
> > 
> > 
> > *****************inicio do script*******************
> > #!/usr/local/bin/expect -f
> > set data [exec date "+%Y-%m-%d"]
> > 
> > #Cria o arquivo de log
> > spawn touch /tftpboot/rx.$data/conf.cisco.log
> > expect \r
> > spawn chmod 777 /tftpboot/rx.$data/conf.cisco.log
> > expect \r
> > set log [open /tftpboot/rx.$data/conf.cisco.log w]
> > 
> > set nfrad 33;
> > set i 0
> > set timeout 30
> > 
> >       #Criacao do arquivo no qual sera salva a configuracao
> >       spawn touch /tftpboot/rx.$data/F$nfrad.cfg;
> >       expect \r
> >       spawn chmod 777 /tftpboot/rx.$data/F$nfrad.cfg;
> >       expect \r
> > 
> >       #Conexao com o frad
> >       spawn telnet 200.200.200.200;
> >       expect {
> >                Password: { set i 1;}
> >                timeout   { puts $log "Timeout no F$nfrad (1)"}
> >                default   { puts $log "Caso nao previsto no 
F$nfrad (1)"}
> >       }
> > 
> >       if {$i == 1} {
> >          send pula-pula\r;  // A senha de telnet � "pula-pula" 
sem
> > ap�strofos.
> >          expect {
> >                   F$nfrad>    { set i 1;}
> >                   timeout     { puts $log "Timeout no F$nfrad 
(2)"}
> >                   default     { puts $log "Caso nao previsto no 
F$nfrad
> > (2)"}
> >          }
> >       }
> > 
> >       if {$i == 1} {
> >          send ena\r;
> >          expect {
> >                   Password:   { set i 1;}
> >                   timeout     { set i 0; puts $log "Timeout no 
F$nfrad
> > (3)";}
> >                   default     { set i 0; puts $log "Caso nao 
previsto no
> > F$nfrad (3)";}
> >          }
> > 
> >       if {$i == 1} {
> >           //A senha de grava��o do cisco � "linkBRTtop" sem 
ap�strofos
> >          send linkBRTtop\r;
> >          expect {
> >                   F$nfrad#    { set i 1;}
> >                   timeout     { set i 0; puts $log "Timeout no 
F$nfrad
> > (4)";}
> >                   default     { set i 0; puts $log "Caso nao 
previsto no
> > F$nfrad (4)";}
> >          }
> >       }
> > 
> >       if {$i == 1} {
> >             send "wr t\r";
> >             expect \r;
> >             log_file /tftpboot/rx.$data/F$nfrad.cfg;
> >             expect {
> >                     More          { set f 0;}
> >                     end           { set f 1;}
> >                     timeout       { set f 1; puts $log "Timeout 
no
> F$nfrad
> > (5)";}
> >                     default       { set f 1; puts $log "Caso nao
> previsto no
> > F$nfrad (5)";}
> >             }
> > 
> >             if {$f == 0} {
> >                 send " ";
> >                 expect {
> >                     More        { set f 0;}
> >                     end         { set f 1;}
> >                     timeout     { set f 1; puts $log "Timeout no 
F$nfrad
> > (5)";}
> >                     default     { set f 1; puts $log "Caso nao
> previsto no
> > F$nfrad (5)";}
> >                 }
> >             }
> > 
> >             if {$f == 1} {
> >                    puts $log "Configuracao do F$nfrad salva com
> sucesso";
> >                    send exit;
> >             }
> >       }
> > 
> > *****************fim do sccript*******************
> > 
> > 
> > 
> > 
> > 
> > 
> > 
> > ----- Original Message ----- 
> > From: "Edgar Shine" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Tuesday, October 19, 2004 10:15 AM
> > Subject: Re: [redewan] Script para rodar TFTP e copiar startup-
config
> > 
> > 
> > >
> > >
> > > Robozinhos sao triviais de se fazer. ;)
> > >
> > > Por exemplo, vc poderia montar um em perl, baseado no 
net::telnet
> > > http://www.perlfect.com/articles/telnet.shtml
> > >
> > > ou...
> > >
> > > Se vc usar Windows 2000/NT/XP, vc pode tbm usar as Batts-Tools:
> > > http://geocities.yahoo.com.br/lbattistin/batts_tools.html
> > > Alem de ser freeware, eh todo em portugues.
> > > Eh uma suite de ferramentas, o q se aplica ao seu caso eh o 
BARCA.
> > >
> > > sds,
> > > Edgar
> > >
> > > Em Seg, 2004-10-18 �s 16:33, Marco Aurelio escreveu:
> > > > Prezados colegas da lista,
> > > >
> > > >       Preciso automatizar os backups de varios roteadores em
> miha rede.
> > Tenho um roteador central 3660 e varios links frame-relay e
> ponto-a-ponto
> > configurados. Para copiar a NVRAM de cada roteador fa�o o 
procedimento
> > tradicional.
> > > >       Alguem de vcs j� implementou ou tem algum script que
> execute um
> > telnet remoto e fa�a a copia da NVRAM para um servidor TFTP?
> > > >        Tenho mais de duzentos roteadores se comunicando com 
este
> > roteador 3660. Dessa forma, se alguem puder me ajudar com alguma
> > documenta��o ficaria grato.
> > > >
> > > >
> > > >     Obrigado pela aten��o.
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > A lista redewan � mantida e moderada por Gilberto Biasoto.
> > >
> > > [EMAIL PROTECTED]
> > > http://www.networkdesigners.com.br
> > > ------------------------------------------------
> > > To unsubscribe email to:
> > > [EMAIL PROTECTED]
> > > Links do Yahoo! Grupos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >








A lista redewan � mantida e moderada por Gilberto Biasoto.

[EMAIL PROTECTED]
http://www.networkdesigners.com.br
------------------------------------------------
To unsubscribe email to:
[EMAIL PROTECTED] 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/redewan/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a