Hal,
What I guess I need is the code in the primer you sent me shown in a VB.Net syntax.
Thanx
David

David, I searched google and found the instructions there. I provided you with what came up in those results.

I don't know of a code primer in vb.net for this. As I said, If you have a specific line you don't understand how to convert over - I'll be glad to explain it.



Hal Levy
I am here to help you, not do it for you.

Hal,
Here's what I managed to scrap together. I does work, except all it is returning is the properties for the account and not the groups the user is a member of. I haven't been able to find anything that clarifies that part. Can you offer any assistance?
Thanx
David

        Dim strPath As String = "LDAP://servername"
        Dim strMember As String
        Dim strGroup As String

            Dim objEntry As New DirectoryServices.DirectoryEntry(strPath, _
            Me.txtUserName.Text, Me.txtPassword.Text)
            Dim objSearcher = New DirectoryServices.DirectorySearcher(objEntry)

            objSearcher.Filter = "(SAMAccountName=" + Me.txtUserName.Text + ")"
            objSearcher.PropertiesToLoad.Add("cn")

            Dim result As DirectoryServices.SearchResult = objSearcher.FindOne()
            strResult = result.Properties("cn")(0)

            Dim userGroups As New DirectoryServices.DirectoryEntry(strPath, Me.txtUserName.Text, Me.txtPassword.Text)

            MsgBox(strResult & " is a member of : " & userGroups.Name)

            For Each strMember In userGroups.Properties.PropertyNames

                Try
                    strGroup = strMember & ": " & _
                       CType(userGroups.Properties(strMember)(0), String)

                Catch ex As Exception
                    strGroup = strMember & ": " & _
                       "No text representation."

                End Try

                MsgBox(strGroup)

            Next

Did you solve this? I was slammed at work and couldn't get back to this until right now.



Hal Levy
I am here to help you, not do it for you.
That is, unless you hire me. I am looking for work.

Hal,

I think I did. I have to clean up the code some. I'll post it when I do.

Thanx!
David