Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Shared Function UserNameLong(ByVal UserID As String)
Dim FullName As String
Try
Dim ADEntry As New System.DirectoryServices.DirectoryEntry("WinNT://DomainName/" & UserID.Trim)
FullName = ADEntry.Properties("FullName").Value
Catch exc As Exception
FullName = ""
End Try
Return FullName
End Function