How do you search by username and return records through Active Directory?

See more:

VB

directory

Hi,

I am looking for a sample program that can grab a users information. I have acquired the Active Directory string. See below:

Public Function GetUserInfo(ByVal inSAM As String, ByVal inType As String) As String
        Try****

            '            Dim sPath As String = "LDAP://****.com/DC=****,DC=com"
            Dim sPath As String = "LDAP://****.com"
            Dim SamAccount As String '= Right(inSAM, Len(inSAM) - InStr(inSAM, "\"))
            SamAccount = inSAM
            Dim myDirectory As New DirectoryEntry(sPath) ', "Enterprise Admin", "Password") 'pass the user account and password for your Enterprise admin.
            Dim mySearcher As New DirectorySearcher(myDirectory)
            Dim mySearchResultColl As SearchResultCollection
            Dim mySearchResult As SearchResult
            Dim myResultPropColl As ResultPropertyCollection
            Dim myResultPropValueColl As ResultPropertyValueCollection
            'Build LDAP query
            mySearcher.Filter = ("(&(objectClass=user)(samaccountname=" & SamAccount & "))")
            mySearchResultColl = mySearcher.FindAll()
            'I expect only one user from search result
            Select Case mySearchResultColl.Count
                Case 0
                    Return "Null"
                    Exit Function
                Case Is > 1
                    Return "Null"
                    Exit Function
            End Select


            'Get the search result from the collection
            mySearchResult = mySearchResultColl.Item(0)

            'Get the Properites, they contain the usefull info
            myResultPropColl = mySearchResult.Properties

            'Retrieve from the properties collection the display name and email of the user
            myResultPropValueColl = myResultPropColl.Item(inType)

            Return CStr(myResultPropValueColl.Item(0))


        Catch ex As System.Exception
            Return "Null"
            Exit Function
            'do some error return here.
        End Try

    End Function

I'm just not sure what to do with the code above to make it grab users data by looking up a username.