perl - 带有 NTLM 身份验证的 Perl 机械化

Question

我还没有看到使用 Mechanize 支持 NTLM 的示例。有谁知道我们如何通过 Mechanize 使用 NTLM 库？如果没有，LWP 能完成这项工作吗？

my $mech = WWW::Mechanize->new( 'keepalive' => 1 );

my $url = "http://URL/I/NEED/TO/ACCESS"; <---Requires NTLM authorization
my $username = "username";
my $password = "password";

$mech->credentials($username, $password);
$mech->get($url);          

Answer 1

根据这个

使用 WWW::Mechanize 凭证

您需要确保您使用的是 v1.5.2 或更高版本的 WWW::Mechanize，最终它将使用 Authen::NTLM

如果您的真实用户名中有反斜杠，那么您将不得不使用单引号或转义它

 my $username = "domain\\user";