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
