VBA：LDAP搜索森林中的所有域答案

【问题标题】：VBA: LDAP Search through all domains in forestVBA：LDAP搜索森林中的所有域
【发布时间】：2012-08-29 13:02:24
【问题描述】：

我有以下 VBA 代码，用于搜索特定用户并从 Active Directory 中输出全名、电子邮件和部门：

 Public Type LDAPUserInfo
    FullName As String
    Email As String
    Department As String
    AccountStatus As String
 End Type


Function FindUser(ByVal username) As LDAPUserInfo
 On Error GoTo Err

 Dim objRoot As Variant
 Dim LDAPdomainName As String
 Dim cn As Variant
 Dim cmd As Variant
 Dim rs As Variant
 Dim LDAPUserInfo As LDAPUserInfo

 Set cn = CreateObject("ADODB.Connection")
 Set cmd = CreateObject("ADODB.Command")
 Set rs = CreateObject("ADODB.Recordset")

 Set objRoot = GetObject("LDAP://RootDSE")
 LDAPdomainName = objRoot.Get("defaultNamingContext") 'Contains the distinguished name for the domain of which this directory server is a member.
'http://msdn.microsoft.com/en-us/library/windows/desktop/ms684291(v=vs.85).aspx

 cn.Open "Provider=ADsDSOObject;"

 cmd.activeconnection = cn
 'cmd.commandtext = "SELECT ADsPath FROM 'LDAP://" & Domain & "' WHERE sAMAccountName = '" & UserName & "'"
 'To see all attributes names available, connect with Active Directory Explorer and add to Select.
 cmd.commandtext = "SELECT cn, mail, physicalDeliveryOfficeName, userAccountControl  FROM 'LDAP://" & LDAPdomainName & "' WHERE sAMAccountName = '" & username & "'"
 Set rs = cmd.Execute

    Debug.Print rs("cn") & " E-mail: " & rs("mail") & " Dept: " & rs("physicalDeliveryOfficeName")
    LDAPUserInfo.FullName = Nz(rs("cn"), "")
    LDAPUserInfo.Email = Nz(rs("mail"), "")
    LDAPUserInfo.Department = Nz(rs("physicalDeliveryOfficeName"), "")

   FindUser = LDAPUserInfo


If Not rs Is Nothing Then rs.Close
If Not cn Is Nothing Then cn.Close

Exit_Err:

 Set rs = Nothing
 Set cmd = Nothing
 Set cn = Nothing
 Set objRoot = Nothing
 Exit Function

Err:

 If Err <> 0 Then
    MsgBox "Error connecting to Active Directory Database: " & Err.Description & vbCrLf & _
            "User: " & username, , "Error: " & Err.Number
 Else
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        MsgBox rs(0)
    Else
        MsgBox "Not Found"
    End If
 End If
 Resume Exit_Err

End Function

它适用于主域中的用户。有没有办法更改LDAPdomainName，以便它可以在所有子域中搜索？

【问题讨论】：

标签： vba dns active-directory subdomain

【解决方案1】：

根据您的特定林配置，答案会略有不同。

一般来说，如果您也想搜索子域，您可以要求 ADSI 执行所谓的追逐引荐。如果您搜索 ADSI + 追逐推荐，您将获得大量点击...并且取决于您最终使用的 API，每个都有一个答案。一些信息在这里：http://technet.microsoft.com/en-us/library/cc978014.aspx

也就是说，有一些细微差别：

如果您有多个域，从命名空间的角度来看，您的林中的所有域都没有一个父域（例如：想象有一个具有 foo.com、bar.foo.com 和 blech.com 的林......没有涵盖所有内容的单亲），那么您要么必须进行多次搜索，要么使用所谓的幻根控制（您可以在其中传递不存在的最顶层父母，指示 AD 搜索所有人）
请记住，此搜索将在您的整个森林中搜索到 DC...您所搜索的每个域都有一个 DC。如果您只搜索一组有限的属性，您可能希望访问全局目录服务器，该服务器可以从该服务器提供有关您所有域的信息（即搜索速度更快，因为它都是本地的）。为此，您需要连接到全局编录端口，该端口通常为 3268/3269（后者是 LDAPS）。

【讨论】：