elvis@elvis-laptop:~/tmp/person$ ./d2.pl
--Peforming request now...---------
--Done with request ...---------
Error: 401 Unauthorized
Date: Tue, 11 Oct 2011 03:43:53 GMT
Server: Microsoft-IIS/6.0
WWW-Authenticate: Negotiate
WWW-Authenticate: NTLM
Content-Length: 1327
Content-Type: text/html
Client-Date: Tue, 11 Oct 2011 03:47:44 GMT
Client-Peer: 10.1.1.1:80
Client-Response-Num: 1
Client-Warning: Unsupported authentication scheme 'negotiate'
Title: ��δ����Ȩ&#6
+5533;鿴��ҳ
X-Powered-By: ASP.NET
[download]

For clarifying if it is related to the patch of /usr/local/share/perl/5.10.1/LWP/Authen/Ntlm.pm, I covered it back and update the new output:

--Peforming request now...---------
--Done with request ...---------
Error: 401 Unauthorized
Date: Tue, 11 Oct 2011 04:32:33 GMT
Server: Microsoft-IIS/6.0
WWW-Authenticate: Negotiate
WWW-Authenticate: NTLM
Content-Length: 1251
Content-Type: text/html
Client-Date: Tue, 11 Oct 2011 04:36:23 GMT
Client-Peer: 10.1.1.1:80
Client-Response-Num: 7
Client-Warning: Credentials for 'domain\user' failed before
Title: ��δ����Ȩ&#6
+5533;鿴��ҳ
X-Powered-By: ASP.NET
[download]

The perl script is following:

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;
use LWP::Debug qw(+);
use Authen::NTLM;
use strict;
use warnings;

ntlmv2(1);

my $url = "http://10.1.1.1";

my $ua = new LWP::UserAgent(keep_alive => 1);

$ua->credentials('10.1.1.1:80', '', 'domain\user', 'password');

my $req = HTTP::Request->new(GET => $url); 
print "--Peforming request now...---------\n";
my $res = $ua->request($req);
print "--Done with request ...---------\n";

# check the outcome
if ($res->is_success) {
    print $res->content;
} else {
    print "Error: " . $res->status_line . "\n";
    print $res->headers()->as_string(), "\n";
}

exit 0;
[download]

LWP::Authen::Ntlm has all the info you need. Note also that you do not have to specifically mention Authen::NTLM as that is automatically covered by LWP. As for credentials, I usually use localhost\\myusername followed by my personal password. myDomain\\user won't work:).

hi, just recently, i've got a need to access an NTLM-protected web page programatically using LWP and i'm getting the same error as yours:

HTTP/1.1 401 Unauthorized
Date: Tue, 07 Feb 2012 02:49:17 GMT
Server: Microsoft-IIS/6.0
WWW-Authenticate: Negotiate
WWW-Authenticate: NTLM
WWW-Authenticate: Digest qop="auth",algorithm=MD5-sess,nonce="9bee3c16
+43e5cc01cdd097f1c38245318e8bcc42694833d14128d3c67ab436a651383633536b5
+56d",charset=utf-8,realm="Digest"
Content-Length: 83
Content-Type: text/html
Client-Date: Tue, 07 Feb 2012 02:49:19 GMT
Client-Peer: 192.168.1.1:80
Client-Response-Num: 7
Client-Warning: Credentials for 'xxpmuser' failed before
Title: Error
X-Powered-By: ASP.NET
[download]

have you had any luck resolving this? TIA, -ron