A voir également:
- Perl automatiser Telnet sur switch Nortel
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Présentation d'une diapositive - Forum Bureautique
- Telnet - Astuces et Solutions
- Télécharger switch - Télécharger - Conversion & Extraction
- Mod minecraft switch - Forum minecraft
2 réponses
Bonjour ,
j'ai encore travaillé sur mon script mais le resultat qui me donne c'est toujours 1 ! Avez vous une idée d'où pourrait venir le problème
#!/usr/bin/perl
use Net::Telnet;
$prompt ='/.*[\$#:>\]\%] *$/';
$host ='192.168.32.249';
$t= new Net::Telnet (Timeout=>25,
Errmode=>'return',
prompt=>$prompt
);
$t->open($host);
@lines=$t->put("^Y") or die "=> Echec de l'envoi de Ctrl+Y \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("c") or die "=> Echec de l'envoi de Maj+C \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines= $t->put("enable") or die "=> Echec de l'envoi de enable \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("show ip") or die "=> Echec de l'envoi de show ip \n=> ".$t->errmsg."";
print "@lines\n";
$t->close;
j'ai encore travaillé sur mon script mais le resultat qui me donne c'est toujours 1 ! Avez vous une idée d'où pourrait venir le problème
#!/usr/bin/perl
use Net::Telnet;
$prompt ='/.*[\$#:>\]\%] *$/';
$host ='192.168.32.249';
$t= new Net::Telnet (Timeout=>25,
Errmode=>'return',
prompt=>$prompt
);
$t->open($host);
@lines=$t->put("^Y") or die "=> Echec de l'envoi de Ctrl+Y \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("c") or die "=> Echec de l'envoi de Maj+C \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines= $t->put("enable") or die "=> Echec de l'envoi de enable \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("show ip") or die "=> Echec de l'envoi de show ip \n=> ".$t->errmsg."";
print "@lines\n";
$t->close;