LWP访问网页如何验证windows域用户

最近需要使用perl来访问公司内部的一个网页，这个网页是采用windows域用户验证的。

我用 lwp:agent 怎么都验证不过去，有朋友用过类似的吗？

如下，是我用自己的机器搭的IIS，然后启用了windows域验证：

用最简单的程序来访问如下：

#!/usr/bin/perl #use strict; use warnings; use LWP::UserAgent; use HTTP::Request::Common; use LWP::Debug qw(+); my $url='http://158.65.228.113:80/index.htm'; my $ua = new LWP::UserAgent(keep_alive=>1); #$ua->agent('Mozilla/4.0'); $ua->credentials('158.65.228.113:80', 'TD.teta.com', 'TD.teta.com\\gd185052', 'Teewu5');  $request = GET $url;  print "--Performing request now...-----------\n";  $response = $ua->request($request);  print "--Done with request-------------------\n";  if ($response->is_success) {print "It worked!->" . $response->code . "\n";}  else {print "It didn't work!->" . $response->code . "\n";}

得到的结果始终是验证未通过 401.

难道iis现在不是用ntlm来验证的了吗？

谢谢啦!

这种问题的解决思路是
先通过浏览器访问，然后抓包分析，看走的是什么认证协议
然后写代码来实现

$ua->credentials('158.65.228.113：80', 'TD.teta.com', 'TD.teta.com\\gd185052', 'Teewu5');

两个问题，一个是冒号你用了全角的。
另个是Realm是写登陆的域，你确定那个名字是正确的？done。。
我在之前一个帖子里也问过类似的问题，HTTP认证页的问题，不过
解释运行无碍，用PERL2EXE编译了就玩不转。
OK

先谢谢啦！

不好意思，冒号是后来编辑时弄错的

realm的话，windows下 IIS建的服务器，有realm吗？ 好像iis里没有定义的这项。  不过我用程序看head里返回的信息，就是这个 TD.teta.com 。以下是我得到的信息：

Date: Fri, 10 Oct 2008 02:41:47 GMT
Server: Microsoft-IIS/6.0
WWW-Authenticate: Negotiate
WWW-Authenticate: NTLM
Content-Length: 1656
Content-Type: text/plain
Client-Date: Fri, 10 Oct 2008 02:41:47 GMT
Client-Peer: 158.68.251.246:80
Client-Response-Num: 1
Client-Warning: Unsupported authentication scheme 'ntlm'
X-Powered-By: ASP.NET

下面是我访问我自己搭的服务器的信息：

Date: Fri, 10 Oct 2008 03:06:23 GMT
Server: Microsoft-IIS/5.1
WWW-Authenticate: Negotiate
WWW-Authenticate: NTLM
WWW-Authenticate: Digest qop="auth", realm="TD.teta.com", nonce="246c6ed2659c39389589832000007ef3b5443af0808abb728c931a816e82"
Content-Length: 4431
Content-Type: text/html
Content-Type: text-html; charset=Windows-1252
Client-Date: Fri, 10 Oct 2008 03:06:23 GMT
Client-Peer: 158.68.228.113:80
Client-Response-Num: 1
Client-Warning: Unsupported authentication scheme 'ntlm'
Title: You are not authorized to view this page
X-Meta-ROBOTS: NOINDEX

有大虾知道吗？