How do I get LDAP to return the logon user fullname?

See more:

VB

LDAP

I have the following code below that should retuurn the fullname of the user logged on. It worked in my other application but for this next application it keeps returning 0. I have added reference to activeds libraby and imported it. Please help.

I call the function like this :

Dim strFullName As String = GetRealNameFromAd(User.Identity.Name)

This is is the function:

Private Function GetRealNameFromAd(ByVal UsernameToFind As String) As String

      Using searcher As New DirectorySearcher(New DirectoryEntry())
          searcher.PageSize = 1000
          searcher.SearchScope = SearchScope.Subtree
          searcher.Filter = "(&(samAccountType=805306368)(sAMAccountName=" & UsernameToFind & "))"
          Using Results As SearchResultCollection = searcher.FindAll

                              If Results Is Nothing OrElse Results.Count <> 0 Then
                  Throw New ApplicationException("Invalid number of results returned - either no users were found or more than one user account was found")
              End If
              Using UserDE As DirectoryEntry = Results(0).GetDirectoryEntry
                  Return CStr(UserDE.Properties("givenName").Value) & " " & CStr(UserDE.Properties("sn").Value)
              End Using
          End Using
      End Using

  End Function