Active Directory

[spawnwest]

I am trying to create a phone search using active directory. For example if you search "Tim", I would like to display the name and phone for every user who's first name is Tim. The code I current have will retrieve the groups and displayName of the current logged on users. How would I modify this code. Any suggestions? Thanks!

Tim

Dim sPath As String = "LDAP://mydomain.com/DC=mydomain,DC=com"
Dim SamAccount As String = Right(inSAM, Len(inSAM) - InStr(inSAM, "\&quot)
Dim myDirectory As New DirectoryEntry(sPath, "Administrator", "Password&quot
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 & &quot)&quot
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)

Dim i As Integer
Dim iCount As Integer = mySearchResult.Properties("MemberOf&quot.Count

'Get groups user belong to
For i = 0 To iCount - 1
Dim gADs As String = mySearchResult.Properties("MemberOf&quot.Item(i)
Dim myGroup As String = Left(gADs, (InStr(gADs, ",&quot - 1))
Next

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

'displayname, mail
'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
Response.Write("Error: " & ex.ToString())
Response.End
End Try