bonjour, la j'ai un petit problème de connections ,
bien sur en mettant le bon mots de password et username avec l'adresse ip du host et du nom , il me fait une erreur de type "waiting for login prompt"

et je ne sais pas d'ou ca peux venir et étant pas très doué encore en Perl je vous demande un peu d'aide

merci bien

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
 
#!/usr/bin/perl -w
use strict;use warnings;
use Net::Telnet;
use Net::SNMP;
use lib "C:/Perl/site/lib";
 
my $username="admin";
my $passwd="pwd";
my $community = " public ";
my $snmp_port = 161;
my $oid = " 1.3.6.1.4.1.318.1.1.12.1.5, 1.3.6.1.4.1.318.1.1.12.1.1 ";
my $host ="x.x.x.x";
my $nom="x.x.x.x";
 
my ($session, $error) = Net::SNMP->session(-hostname => $host,
				           -timeout => 3,
					   -retries => 1,
					   -community => $community,
					   -port => $snmp_port
					  );
 
my $telnet = new Net::Telnet (Timeout => 25,Prompt =>'/User Name : /', Dump_Log   => 'erreur.txt',) or die "la connection na pu aboutir:$!\n"; 
$telnet->open($nom);
$telnet->login($username, $passwd);