Reprise du message précédent :
je vais t'embeter mais comment, je l'installe .???  
 
comment je lance ce fichier..
 
ce que j'ai fais, cd c:\perl\lib\LWP\Authen
donc je suis placée dans le dossier Authen
apres j'ai tape Ntlm.pm
et ça n'a rien fait ...
 

je te l'ai pourtant deja dit:
Tu ouvres une fenetre dos, et tu tapes ppm (puisque tu utilises active state)  
Ca te lance une application en mode fenêtré qui liste les modules a installer, tu vas choisir le module NTLM, le selectionner pour l'installer, puis l'installer (avec un bouton en haut a droite de la fenetre).
A+,

oui, j'ai vu entre temps, en reflechissant bien..  
j'ai fait, directement, ppm install NTLM
 
il m'a installé, NTLM-1.03
 
dc je pense que c'est bon, si c'est le cas, le code marche tjs pas...
 
ppm tout seul, me lance une fenetre, mais j'arrive pas a l'utiliser.

Bon, en tout cas, tu ne devrais plus avoir l'erreur  can't locate authen/NTLM.pm @inc ...
Donc ca en est ou dans les erreurs?
A+,

erreur 401 : unauthorized

tu crois que c'est parce qu'il me manque des modules d'installé que ça ne marche pas ?

Ca ne devait pas marcher a cause de cela precedemment, mais maintenant si tu n'as plus de messages d'erreur du type can't locate... ca ne doit pas venir de cela.
Essayes de dumper completement le contenu de la reponse retournée pour voir si tu n'as pas un message plus explicite.
Bizarre, parce que le code que je t'ai donné un peu plus haut devrait alors marcher.
Dans le code  
$browser->credentials('adIP:80', '', 'domaine\\login', 'password');
tu ne met bien que l'adresse IP suivie de :80, et sans http:// devant, dans le premier parametre?
A+,

oui bien sur. je n'ai mis que l'adresse IP.
si ça se trouve elle est protégé d'une façon que j'ignore pour le moment. Mais ça me parait bizarre, pour ce que l'on a fait, est bon, mais ça ne suffit pas. et même en locale ça ne fonctionne pas.

C'est pour ca que je te dis de dumper la reponse a la requete pour voir s'il n'y a pas des infos a en tirer:
.......................
use Data::Dumper qw( Dumper );
my $response = $browser->request($request);
print  '$response : ', Dumper($response);
A+,

Tiens, voici le fonctionnement de la négociation d'authentification NTLM entre le client et le serveur HTTP, negociation qui devrait être effectuée par l'user-agent.
 

Tout ca devrait se faire par les modules perl, mais en dumpant la reponse, tu devrais voir a quel stade ca coince. Dans un premier temps, avant d'utiliser Data::Dumper, ajoutes use LWP::Debug qw(+); en debut de programme, et tu devrais pouvoir tracer ce qui se passe en interne et voir ou il y a pb; ca devrait être suffisant comme trace, sinon, voir avec Data::Dumper.
A+,

LWP::UserAgent::new)
LWP::UserAgent::request)
HTTP::Cookies::add_cookie_header: Checking IP for coockies
HTTP::Cookies::add_cookie_header: Checking IP for coockies (sans le premier chiffre)
HTTP::Cookies::add_cookie_header: Checking IP for coockies (sans le 1er chiffre ni le point)
HTTP::Cookies::add_cookie_header: Checking IP for coockies (sans les deux premiers chiffres)
HTTP::Cookies::add_cookie_header: Checking IP for coockies (sans les 2 premier chiffres ni le point)
HTTP::Cookies::add_cookie_header: Checking IP for coockies (sans les trois premier chiffres exp : ".144" )
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request)
LWP::Protocol::collect: read 808 bytes
LWP::Protocol::collect: read 1089 bytes
LWP::Protocol::http::request: Keep the http connection to AD IP : PORT
LWP::UserAgent::request: Simple response: Unauthorized
 
 
voila le debut de reponse lors du lancement du script...

les ) signifie, "  : ()  "

Si tu as mis  
use LWP::Debug qw(+);  
tu dois avoir un message  avec:
"authenticate() has been called"
et ce qui suit ce message va dire ce qui se passe au niveau de l'authentification.
A+,

#!usr/bin/perl
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Status;
use Data::Dumper qw( Dumper );  
use LWP::Debug qw(+);
 
print "Content-type: text/html\n\n";
my $browser = new LWP::UserAgent(keep_alive=>1);
$browser->credentials('IP:80', '', 'domaine\\login, 'pass');
$browser ->cookie_jar({});
$| = 1; #autoflush
my $request = new HTTP::Request( GET => "http://ad Ip/lmc/current_usage/currentUsage.jsp" ); #un seul http://
my $response = $browser->request($request);
print  '$response : ', Dumper($response);  
if ($response->is_success) {
  my $headers = $response->headers();
  print "Encoding : ".$headers->header("Content-Encoding" );            
  print "Content:\n".$response->content."\n";
} else {
  print "Erreur:".$response->status_line."\n";
}
 
 
voila le code/
 
mais j'ai pas, "authenticate () has been called"

Il faut voir ce qui se passe au niveau de $browser->credentials, c'est la que ca coince, car ca n'appelle pas l'authentification NTLM. Je vais regarder dans le source de LWP
 
A+,

Bon, je vois que tu as ceci dans la reponse:

Ce qui veut dire qu'il n'a pas pu loader le module authen/NTLM
Premiere piste:
Dans le module
LWP/Authen/Ntlm.pm
remplaces la ligne
use Authen::NTLM "1.02";
par
use Authen::NTLM "1.03";
vu qu'on a installé la 1.03, c'est peut etre ca qui coince.
Ca devrait pas, car si on met 1.02 ca doit etre bon aussi pour une version superieure, mais a tout hasard...
A+,

En tout cas, dans le code de LWP::User-Agent, c'est ici que ca se joue:

Et c'est la qu'il va falloir tracer pour comprendre, si on ne loade toujours pas le module.
A+,

le message d'erreur ne change pas
j'ai installe aussi MIMI::Base 64 et change la version dans le doc.pm

ta trouvé ce code dans qu'elle page ?

Damned: Je pense que je sais ce qui deconne:
 
use Authen::NTLM "1.02";
use MIME::Base64 "2.12";
Je pensais le module MIME::Base64  installé par défaut, or ce n'est pas le cas. A tout les coups, c'est ce qui doit faire foirer le load du module.
A+,

Ah zut, c'était une bonne piste.
A+,

C'est le code de LWP//User-Agent, donc dans LWP/User_Agent.pm
 
Bon premier truc a tracer:
Fais un  
print "un message reperable\n";
avant les lignes  
use Authen::NTLM "1.02";  
use MIME::Base64 "2.12";  
Qu'on sache si on arrive au moins en debut de LWP::Authen::Ntlm
A+,
 

ou s'installe les modules perl ?
je fais ppm ds la console, j'installe les modules que je veux.. et ou ça va apres ?

#!usr/bin/perl
print "un message reperable\n";
use Authen::NTLM "1.02";  
use MIME::Base64 "2.12";  
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Status;
use Data::Dumper qw( Dumper );  
use LWP::Debug qw(+);
 
print "Content-type: text/html\n\n";
my $browser = new LWP::UserAgent(keep_alive=>1);
$browser->credentials('10.5.211.144:80', '', 'KDEMO\\Administrateur', 'Kappa2005');
$browser ->cookie_jar({});
$| = 1; #autoflush
my $request = new HTTP::Request( GET => "http://10.5.211.144/lmc/current_usage/currentUsage.jsp" ); #un seul http://
my $response = $browser->request($request);
print  '$response : ', Dumper($response);  
if ($response->is_success) {
  my $headers = $response->headers();
  print "Encoding : ".$headers->header("Content-Encoding" );            
  print "Content:\n".$response->content."\n";
} else {
  print "Erreur:".$response->status_line."\n";
}
 
 
 
reponse de la console :
 
=> Can't locate Authen/NTLM.pm in @INC (@INC contains: Cperl/site/lib Cperl/lib.) at connexweb.pl line 3.
BEGIN failed--compilation aborted at connexionweb.pl.line3

Bon, alors il y a pb avec ta procedure d'install des modules, puisqu'ils doivent s'installer dans C:\Perl\site\lib  (et chez moi, c'est ce que ca a fait)
Donc si tu n'as pas les modules ou il faut, ca ne va pas aller.
Et ca expliquerait bien des choses.
 
Fais ppm, et utilises la fenetre pour installer, c'est tout simple, et ca te dit ou vont les modules.
A+,
 

Avec la fenetre ppm, tu choisis le menu EDIT > Preferences
Et dans la dialog box PPM Preferences, la tab Area va te dire ou ca s'installe.
A+,

merci beaucoup  !!!!  
 
je crois bien que cette fois ci ça a marché !!!!!
 
heureusement, que tu étais là, sans toi, je pense bien, que je n'aurais pas réussi...
 
mais tu as l'air de t'y connaitre.. tu en fais ton metier ?

En tout cas, on sait maintenant pourquoi le module n'était pas loade: parce qu'il n'était pas correctement installé.
A+,

oui, je vais enfin, pouvoir continuer mon travail... si j'ai besoin de toi je te fais signe !! ^^
 
non, en tout cas merci encore, A+

Je suis devellopeur C a la base, j'ai écrit de grosses parties de divers editeurs structurés connus, mais je suis aussi assez utilisateur de Perl, car je le trouve extremement pratique.
A+,

 
A+,

Juste un dernier point, tu peux virer les lignes
print "un message reperable\n";  
use Authen::NTLM "1.02";    
use MIME::Base64 "2.12";  
En tete de code utilisé, c'etait juste pour tester si tout etait en place.
A+,