Sorry, but no. I tried it against an IIS server at work, and I just couldn't authenticate with LWP.
I set up a directory in IIS to be controlled with NTLM authentication, and I can authenticate with no problem using IE. AFAIK I've followed the instructions for using LWP::Authen::Ntlm to the letter (including verifying that the supporting modules are installed):
use LWP::Debug qw(+);
use LWP::UserAgent;
use HTTP::Request::Common qw(GET POST);
my $ua = new LWP::UserAgent(keep_alive=>1);
$ua->credentials('myserver.mycompany.com:80', '', "mydomain\\user", 'p
+assword');
$req = GET 'http://myserver.mycompany.com/ntlm_auth/';
$resp = $ua->request($req);
if ($resp->is_success)
{
print $resp->content;
}
else
{
print "Error: " . $resp->status_line . "\n";
print $resp->as_string;
}
But I still get the same response as you. Note that using use LWP::Debug qw(+); doesn't provide any helpful information.
Sorry I can't be of more help. I'd appreciate hearing from any Monks who have gotten this to work.
|