Excel - 根据 Excel 工作表中的显示名称从 AD 获取用户名

Question

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

Answer 1

ADO.NET 可以实现这一点。我无法在当前环境中尝试它，但我过去已经成功使用过它：

添加对 ADO 类型库 (msadoXX.dll) 的引用。

使用您自己的凭据创建与 ActiveDirectory 的连接。有时，它无需指定您的凭据（单点登录）即可工作：

Dim Con As New Connection
con.Provider = "ADsDSOObject"
oConnect.Properties("User ID") = "userme"
oConnect.Properties("Password") = "xxxx"
oConnect.Properties("Encrypt Password") = True
oConnect.Open "MyExcelConnection", stUser, stPass

接下来创建一个命令：

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

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