获取 Active Directory 用户列表及其全名和电子邮件答案

【问题标题】：Get a list of Active Directory Users along with their Full Name and Email获取 Active Directory 用户列表及其全名和电子邮件
【发布时间】：2011-10-11 11:15:26
【问题描述】：

我需要使用 Delphi 2010 检索 Active Directory 用户及其属性的列表。

我在 SO 上看到过一些类似的问题（例如 Delphi - Find primary email address for an Active Directory user），但它们似乎都需要用户名才能检索到任何其他信息。

【问题讨论】：

标签： windows delphi active-directory delphi-2010

【解决方案1】：

很久以前，我曾为 [The Delphi Magazine] 写过一篇文章......如果您可以访问这些杂志的积压，它在第62（2000 年 10 月） - 不幸的是，这些过刊似乎不再可供购买了 :-(

一篇文章和一个代码示例太长了，不能在这里发布......基本上它是关于将IDirectorySearch interface 包装在一个更好的类似 Delphi 的 shell 中。您传入一个要搜索的基本容器，定义一个 LDAP 过滤器，并定义一组您感兴趣的属性 - 然后您搜索并返回一个基本的结果枚举器，您可以一个一个地得到它。

【讨论】：

你有机会把它发到网上吗？只是源代码会有很大帮助。
感谢您的帮助 Marc，但在我有很多时间查看您的代码之前，我找到了另一个答案。不过这篇文章很有趣。

【解决方案2】：

最后，我发现了TJvObjectPickerDialog，它是 JVCL 的一部分。它包含了 Windows 选择对象对话框，只需很少的代码就可以完成我需要的一切。只需设置所需的属性并调用执行。所选用户对象与您在“属性”属性中设置的属性一起返回。

【讨论】：

您是否有机会发布一些代码 sn-ps 向其他人展示您是如何使用 TJvObjectPickerDialog 做到的，而不是让他们知道可以做到但不知道如何做到？