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

Question

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

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

Answer 1

我曾经为[The Delphi Magazine]撰写过一篇文章.....如果你有机会获得这些杂志的积压，那就是问题。 62（2000年10月） - 不幸的是，似乎这些问题不再可供购买了： - （

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

Answer 2

最后，我发现了TJvObjectPickerDialog，是JVCL的一部分。它包装了Windows Select Object对话框，只需很少的编码即可完成所需的一切。只需设置所需的属性并调用execute即可。将返回选定的用户对象以及您在“属性”属性中设置的属性。