User1392098406 posted
I have a VB.NET page that, when using the "view in browser" function, works great querying active directory through LDAP, however, when I post the page to our intranet, the query doesn't connect to LDAP. Would this be a setting in IIS, ASP.NET,
or LDAP?
Here is the code:
** strUserName is passed by User.Identity.Name.ToString(). It is also displayed on the page so I at least know that part is functioning.
Public Function GetEmailFromActDir(ByVal strUserName As String) As String
Dim strEmailAddress As String
Try
Dim strPath As String =
LDAP://****/DC=***,DC=***,DC=***
Dim strUserIds As String = Mid(strUserName, 5, Len(strUserName))
Dim objDirEntry As New System.DirectoryServices.DirectoryEntry(strPath)
Dim objDirSearcher As New System.DirectoryServices.DirectorySearcher(objDirEntry)
Dim objCollSearchResult As System.DirectoryServices.SearchResultCollection
Dim objlSearchResult As System.DirectoryServices.SearchResult
Dim objCollResultProperty As System.DirectoryServices.ResultPropertyCollection
Dim objCollResultPropertyValue As System.DirectoryServices.ResultPropertyValueCollection
objDirSearcher.Filter = "(&(objectClass=user)(anr=" & strUserIds & "))"
objCollSearchResult = objDirSearcher.FindAll()
Select Case objCollSearchResult.Count
Case 0
strEmailAddress = ""
Case Is > 1
Exit Function
Case Is = 1
objlSearchResult = objCollSearchResult.Item(0)
objCollResultProperty = objlSearchResult.Properties
objCollResultPropertyValue = objCollResultProperty.Item("mail")
strEmailAddress = objCollResultPropertyValue.Item(0)
End Select
objDirEntry.Dispose()
objDirSearcher.Dispose()
objCollSearchResult.Dispose()
objlSearchResult = Nothing
objCollResultProperty = Nothing
objCollResultPropertyValue = Nothing
Catch ex As System.Exception
Dim strMess As String
strMess = ex.Message
strEmailAddress = ""
End Try
Return strEmailAddress
End Function
