Discussion :

[tdloic]

Bonjour,
J'ai écris un script Perl pour faire des requêtes SNMP. le problème est que je n'arrive pas à me connecter sur des équipements ayant un login et un mot de passe. J'ai besoin d'aide SVP.
merci d'avance.
PS: voici le code

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
use strict;
use warnings;
use Net::SNMP;
 
my $OID_sysDescr = '.1.3.6.1.2.1.1.1.0'; #Utilisation pour la description du matériel.
my $host = '192.168.240.67';
 
	#Permet de lancer une connexion sur l’équipement.
	my ($session, $error) = Net::SNMP->session(
         -hostname       => $host,
		 -port           => "161",
         -version        => "2",
         -community      => "public",
         -nonblocking    => 1,
      );
 
      #Permet de signaler si une erreur a lieu lors de la connexion.
      if (!defined $session) {
         print "ERREUR: Impossible d'établir la connexion avec ", $host, $error;
      }
 
      #Requète SNMP.
      my $result = $session->get_request(
         -varbindlist => [ $OID_sysDescr ],
         -callback    => [ \&get_callback, $host ],
      );
 
      #Permet de signaler si une erreur a lieu lors de la requête.
      if (!defined $result) {
         print "ERREUR: Impossible d'effectuer la requete SNMP \n", $session->hostname(), $session->error();
      }
 
   # Permet d'afficher le message SNMP en clair.
 
   snmp_dispatcher();
   $session->close();
 
   sub get_callback
   {
      my ($session, $location) = @_;
 
      my $result = $session->var_bind_list();
 
      if (!defined $result) {
         print "ERREUR: Impossible d'effectuer la requete SNMP (get) \n",
                $session->hostname(), $session->error();
         return;
      }
 
      print $result->{$OID_sysDescr};
 
      if (!defined $result) {
         print "ERREUR: Impossible d'effectué la requête SNMP (set): %s.\n",
                $session->hostname(), $session->error();
      }
 
      return;
   }
 
   sub set_callback
   {
      my ($session) = @_;
 
      my $result = $session->var_bind_list();
 
      return;
   }
 
   <>;

[Lolo78]

Je n'utilise pas ce module, mais peut-être faut-il ajouter les informations suivantes lors de la création de la session:

Code :

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

1
2
3
 
     [-username      => $username,]  
     [-authpassword  => $authpasswd,]

[tdloic]

Merci Lolo78 pour ta réponse. Mais les paramètres que tu me donne là ne sont valide que sous SNMPv3, or j'utilise SNMPv2

[ggnore]

le problème est que je n'arrive pas à me connecter sur des équipements ayant un login et un mot de passe.

Donc c'est du snmp3, mais tu utilises du snmp2 ? J'ai pas tout compris.

[tdloic]

je pense finalement que le problème ne vient pas du login et mot de passe des sessions wondows. Car après plusieurs tests j'ai enfin eu des résultats escomptés même sur des PC ayant des mots de passe. Mais sur certains PC, j'obtiens toujours l'erreur: No response from remote host "X.X.X.X"

[Lolo78]

Et tu as une réponse avec un ping sur ces hôtes distants?

[tdloic]

oui, les ping fonctionnent à merveille