Get FirstName & LastName from Active Directory 1

[aspvbnetnerd]

I have this code to validate a login to a Active Directory.

Private Function ValidateActiveDirectoryLogin(ByVal Domain As String, ByVal Username As String, ByVal Password As String) As Boolean Implements IActiveDirectory.ValidateActiveDirectoryLogin

    Dim Success As Boolean = False
    Dim Entry As New System.DirectoryServices.DirectoryEntry("LDAP://" & Domain, Username, Password)
    Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry)
    Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel
    Try
        Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne

        If (My.User.IsInRole(AD_GROUP)) Then
            Success = Not (Results Is Nothing)
        End If
    Catch
        Return False
    End Try

    Return Success

End Function

Now I also want to retrieve the user FirstName and LastName from Active Directory.
Does anyone have experience working with DirectoryServices and can help me with my problem?

/George

 

[chrissie1]

I don't know the exact names of the fields you are looking for but this should get you started.

Dim givenname as String = Results.InvokeGet("givenName").ToString

which you can add after these lines.

If (My.User.IsInRole(AD_GROUP)) Then
            Success = Not (Results Is Nothing)
        End If

Christiaan Baes
Belgium

My Blog

 

[aspvbnetnerd]

chrissie1, thank you very much.

/George

 

[aspvbnetnerd]

I tried this today and in Result it does not exists any function called "InvokeGet"
chrissie1, do you have any other ideas?

/George