Discussion :

[www.rubis]

bonjour

je souhaite etablir une session telnet et lancer une commande


voici mon code mais ca ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
# 
#! /usr/bin/perl
 
 
use Net::Telnet ;
use strict;
 
 
my $host = "172.xx.xx.xx";
my $username = "admin";
my $password = "xxxxx";
 
 
 
#connection to the host
my $session = Net::Telnet->new(Host => $host);
$session->login($username,$password);
 
#execute command on the host and keep result
my @output="";
 
@output = $session->cmd('show version');
 
 
$session->close;
print @output;

Merci de votre aide

[mamax29]

Salut,

Je pense que tu n'a pas du bien lire la doc CPAN:

la bonne syntaxe est la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
my $myhost = "10.10.10.10"
my $username = "admin";
my $password = "xxxxx";
 
$session = new Net::Telnet ();
$session->open($host);
$session->login($username, $password);
@lines = $session->cmd("show version");
print @lines;

[www.rubis]

j'ai resolus mon probleme

attention ca ne marche pas pour tout

moi je voulais faire copy running-config tftp 192.*.*.* Rxxx.txt

sur un equipement reseau (borne wifi par exemple)

voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
# Parametres de connexion à telnet
 
my ($session, $cmd, $var);
 
my @lines = (); 
my @cmd_list = ();
my @output = ();
 
 
my $host = "192.*.*.*";
my $login = "admin";
my $password = "****";
my $serveur_tftp = "*.*.*.*";
 
my $commande    = "show version";
 
$session = new Net::Telnet( Prompt => '/.*[%#>].*$/'); 
 
$session->timeout(20);
$session->errmode("return");
 
$var = $session->open($host);
if (!$var) {
	print("Impossible de joindre le serveur\n", "3");
}
 
$session->waitfor('/Password.*$/');
$session->print("$password");
 
$session->waitfor('/.*[%#>].*$/');
$session->print("$commande");
 
@output = $session->cmd($cmd);
print @output;
 
$session->close;

[michon]

jettes voir un œil dans la rubrique des codes sources. Il y a quelques mois de cela, j'ai posté un exemple de connexion par ssh (et non telnet qui est à reserver à un usage de test en local car moins secure).

Cela pourra peu être t'aider...
http://perl.developpez.com/sources/?...tion2#SSHCisco