Private Function GetFullName()
Dim strUser As String = User.Identity.Name
Dim strSAMAccountname = strUser.Substring(strUser.LastIndexOf("\") + 1)
Dim strFilter = "(&(sAMAccountname=" & strSAMAccountname & ")(objectClass=user))"
Dim objEntry As New DirectoryEntry("GC://rootdomain.com")
Dim search As New DirectorySearcher(objEntry)
search.Filter = strFilter
Dim result As DirectoryEntry = search.FindOne.GetDirectoryEntry
GetFullName = result.Properties("displayName").Value
End Function