Hello All,

I'm attempting to retrieve users data from AD on an intranet application. If I pass the credentials through, it works fine; but, I don't want the user to have to retype in their login information.

This is how I declare my DirectorySearcher:

        sName = User.Identity.Name

        Dim entry As DirectoryEntry
        entry = New DirectoryEntry("GC://dc=domain,dc=parent,dc=com")
        Dim dsDirectorySearcher As New DirectorySearcher(entry)

* GC and LDAP are interchangeable, I've tried both. I've read that GC is the preferred method.

The rest of my search function:

        dsDirectorySearcher.Filter = String.Format("(& (objectClass=*)(mailNickname={0}))", sName)
        dsDirectorySearcher.SearchScope = SearchScope.Subtree
        dsDirectorySearcher.PropertyNamesOnly = False

        Dim srcSearchResults As SearchResult = dsDirectorySearcher.FindOne

I need to pull the users first and last name, department, email address and other public information that can be found using the address book.

As always, any and all help is greatly appreciated. Thank you in advance!!!

Hi AntLac,

What is not working?

It works fine when I pass the credentials through, but I'm attempting to programmitically retreive the data without asking the user to re-enter their credentials. They should not have to, since they already log in to the network when signing on to their computer.

Hi AntLac,

Ok, so the retrieving of the department, email etc is working right?

But .... In your code, I don't see any user passing in their credentials. Also: How is your application configured? If you use windows authentication, you should be able to do what you are trying to do no?

Can't you provide some more code? Maybe an error message and the code where you get it?

Kind regards,
Wim

Here's the function that retrieves the data:

Dim sName As String = ""

Do Until Mid(sName, i, 1) = "\" Or Mid(sName, i, 1) = ""

Loop

entry = New DirectoryEntry("GC://dc=gen,dc=ght,dc=com")

dsDirectorySearcher.PropertyNamesOnly = False

'Log in the user

Dim strAuth As String = ("SELECT [NetworkLogin], [AccessLevel], GEEID, FName, LName, EMail FROM [tblGenEE] WHERE (NetworkLogin='" & Login & "')")

Dim cmdAuth As New SqlCommand

If drAuth.HasRows = True Then

Dim uAL As Integer = drAuth(1)

Dim uFN As String = drAuth(3)

Dim uEMail As String = drAuth(5)

Session.Add("uAccessLevel", uAL)

Session.Add("UserName", uFN & " " & uLN)

Else

Dim nAccess As Integer = 1

Session.Add("uAccessLevel", 1)

End If

End Sub

I would add the usernae and password to the following line:

entry = New DirectoryEntry("GC://dc=gen,dc=ght,dc=com","User","Password)

It will then work.

Without the credentials I get this error: