1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
#!/usr/bin/perl
use Net::Telnet;
$prompt ='/.*[\$#:>\]\%] *$/'; #prend en compte n'importe caractéres du prompt
$host =$ARGV[0];
$name =$ARGV[1];
$telnet = new Net::Telnet (Timeout => 20, Errmode=>'return');
if ($telnet->open($host))
{
sleep 1;
$telnet->waitfor("Enter Ctrl-Y to begin.");
$telnet->print("\031") or die "=> Echec de l'envoi de Ctrl+Y \n=> ".$telnet->errmsg."";
sleep 1;
$telnet->waitfor("IP Configuration/Setup...");
$telnet->print("c") or die "=> Echec de l'envoi de Maj+C \n=> ".$telnet->errmsg."";
sleep 1;
$telnet->waitfor("$prompt");
$telnet->print("en\n") or die "=> Echec de l'envoi enable \n=> ".$telnet->errmsg."";
sleep 1;
$telnet->waitfor("$prompt");
$telnet->print("copy config tftp filename $name address 192.168.32.199\n") or die "=> Echec de l'envoi copy config \n=> ".$telnet->errmsg."";
sleep 1;
#@result= $telnet->get();
#$telnet->waitfor("$prompt");
#print @result;
$telnet->close;
}
else
{
print("Impossible d'établir une session\n");
} |
Partager