<%
vStrUserFullName = ""
If (Request.ServerVariables("AUTH_USER") <> "") Then
strUserID = UCase(Request.ServerVariables("AUTH_USER"))
strUserID = Replace(strUserID, "\", "/")
strPath = "WinNT://" & strUserID & ",user"
'Retrieve User Info
Set objUser = GetObject(strPath)
vStrUserFullName = objUser.FullName
Set objUser = Nothing
End If
%>