0

我正在尝试通过使用他们的登录 ID 和 VB.Net 中的 DirectorySearcher.FindOne() 方法来检索已知 Active Directory 用户的电子邮件地址，但我无法获得任何结果。

抱歉，我是 VB.Net 的新手，不知道哪里出错了。我尝试使用在网上找到的各种示例，但它们都在 C# 中。我已经能够将代码转换为 VB，但我仍然无法使用我找到的内容提取结果。在我在这里找到的最新示例中！它使用 FindAll() 方法并将结果放入 SearchResultCollection 对象中。该集合的计数为 0，因此我尝试使用 FindOne() 方法并尝试将结果放入 SearchResult 对象中。这对我也不起作用。

Public Shared Sub RetrieveUser(ByVal username As String)
        Dim propUsername As String = "samaccountname"
        Dim propFirstName As String = "givenName"
        Dim propLastName As String = "sn"
        Dim propDisplayName As String = "cn"
        Dim propMail As String = "mail"
        Dim propGuid As String = "objectguid"
        Dim results As SearchResultCollection
        Dim result As SearchResult
        Dim directoryEntry As DirectoryEntry = New DirectoryEntry("LDAP_PATH", "DOMIAIN\USERNAME", "PASSWORD", AuthenticationTypes.ServerBind)

        Using directorySearcher As DirectorySearcher = New DirectorySearcher(directoryEntry)
            directorySearcher.PropertiesToLoad.Add(propUsername)
            directorySearcher.PropertiesToLoad.Add(propDisplayName)
            directorySearcher.PropertiesToLoad.Add(propFirstName)
            directorySearcher.PropertiesToLoad.Add(propLastName)
            directorySearcher.PropertiesToLoad.Add(propMail)
            directorySearcher.PropertiesToLoad.Add(propGuid)
            directorySearcher.Filter = String.Format("({0})", "&(objectClass=user)(cn=" & username & ")")
            directorySearcher.SearchScope = SearchScope.Subtree
            '    directorySearcher.SearchRoot.AuthenticationType = AuthenticationTypes.Secure
            directorySearcher.PageSize = 100

            'results = directorySearcher.FindAll()
            result = directorySearcher.FindOne()

            'For Each result In results

            If result.Properties.Contains(propUsername) Then
                Console.WriteLine("User Name: " & result.Properties(propUsername)(0))
            End If

            If result.Properties.Contains(propGuid) Then
                    Console.WriteLine("User GUID: " & BitConverter.ToString(CType(result.Properties(propGuid)(0), Byte())).Replace("-", String.Empty))
                End If

                If result.Properties.Contains(propMail) Then
                    Console.WriteLine("Mail ID: " & result.Properties(propMail)(0))
                End If

                If result.Properties.Contains(propDisplayName) Then
                    Console.WriteLine("DisplayName: " & result.Properties(propDisplayName)(0))
                End If
            'Next


            directorySearcher.Dispose()
            directoryEntry.Dispose()
        End Using
    End Sub
4

0 回答 0