perl - Perl Net::LDAP：使用当前登录进行身份验证

Question

我想绑定一个 LDAP 连接而不给脚本一个用户名和密码。目前我正在向用户询问他的密码并绑定连接：

chomp($password = <STDIN>);
$server = "NAME_OF_MY_DC_SERVER";
$ldap = Net::LDAP->new($server);
$ldap or die "$@\n";
$ldap->bind('USERNAME', password => $password);

但这不是我想要的。我希望脚本自动将 LDAP 连接与运行脚本的用户的凭据绑定。是否有机会获取当前用户的登录信息以将其传递给绑定运算符？

我正在使用 ActiveDirectory 的 Windows 环境中工作。

Answer 1

不，很遗憾没有。

在 Windows 上，出于安全原因，无法提取当前登录。最好的办法是使用带有 C# 的 .NET 框架并通过 AD API 直接连接。Windows 应该会自动为您处理身份验证。不过，您不会为此使用 Perl。