Vb.net Excel-根据Excel工作表中的显示名称从广告中获取用户名

我有一张员工的Excel表格，上面有他们的所有信息。我正在尝试将此信息导入广告，但为了做到这一点，我还需要获取这些用户的用户名。我想要vba代码或vb.net代码，基本上取D列中每一行的值，在AD中查找，返回用户名并将其添加到A列。这样做可能吗？

ADO.net也可能。我无法在当前环境中尝试，但我在过去成功地使用过：

添加对ADO类型库（msadox.dll）的引用

使用您自己的凭据创建到ActiveDirectory的连接。有时，它在不指定凭据的情况下工作（单点登录）：

接下来创建一个命令：

Dim command As New Command
Set command.ActiveConnection = oConnect
command.CommandText =
    "<LDAP://dc.company.com/ou=accounting,dc=company,dc=com>;(objectClass=user);displayName,mail;subtree"

---

当然，您必须根据自己的需要调整查询。

我知道Excel方面的内容，但不熟悉AD。这取决于AD的API——您能否提供关于如何进行的最佳猜测？

Dim command As New Command
Set command.ActiveConnection = oConnect
command.CommandText =
    "<LDAP://dc.company.com/ou=accounting,dc=company,dc=com>;(objectClass=user);displayName,mail;subtree"

Dim rs As ResultSet
Set rs = cmd.Execute
While Not rs.EOF
    X = rs.Fields(0).Value
    Y = rs.Fields(1).Value
    rs.MoveNext
Wend