|
|
|
|
Bonjour !
Je cherche en ce moment à telecharger les fichiers de configuration d'un routeur cisco par le biais d'un script perl et d'un serveur tftp.
Le pc et le routeur sont reliés en Ethernet.
Voici mon script actuellement (je découvre perl...)
#!/usr/bin/perl
use Net::Telnet;
# IP du routeur
$ip = '192.168.0.252';
$telnet = new Net::Telnet (Output_log => 'log',Timeout=>10,Errmode=>'return',Binmode=>'true',Telnetmode=>1,Cmd_remove_mode => 1, Host => $ip);
# IP de l'hote TFTP
$iphote = '192.168.0.38';
print "\nConnect to $ip...\n";
if (defined ($telnet))
{
$telnet->print('en');
# récupération de la configuration de base
$telnet->print('copy flash:config.text tftp://$iphote');
# récupération de la VLAN Database
$telnet->print('copy flash:vlan.dat tftp://$iphote/vlan.dat');
}
Salut,
|
Merci pour ta réponse !
#!/usr/bin/perl
use Net::TFTP;
# IP du routeur
$ip = '192.168.0.252';
$localfile = 'C:\\Test\\config.txt';
print "\nConnect to $ip...\n";
{
$tftp = Net::TFTP->new($ip, BlockSize => 1024);
$tftp->get("flash:config.text", $localfile);
}
Par contre ça ne fonctionne pas. Le fichier "config.txt" est bien crée mais il est vide ... Est ce que l'erreur vient du chemin que je lui indique ? Je ne sais acceder à la configuration que de cette façon, je ne vois pas quel autre "chemin" je pourrais lui donner en entrée :s J'en arrive exactement au même point qu'avec mon script precedent. |
Je vois que la syntaxe est
#!/usr/bin/perl
use Net::TFTP;
# IP du routeur
$ip = '192.168.0.252';
$remotefile = 'C:\\Test\\config.txt';
$localfile = '/home/krst/config_win.txt';
print "\nConnect to $ip...\n";
{
$tftp = Net::TFTP->new($ip, BlockSize => 1024);
$tftp->get($remotefile, $localfile);
}
Je ne suis pas sûr pour le chemin avec C:\\.... lami20j |
Pas tout à fait, je télécharge depuis linux sur win.
|
Regarde plutôt Net::Telnet::Cisco
|
Oui ! Je pense qu'avec celui là ça devrait aller !
|