问如何获取登录网站的客户名称

EN

    ''' <summary>
    ''' Returns the Clients IP address
    ''' </summary>
    ''' <returns>
    ''' [String] The Clients IP address
    ''' </returns>
    ''' <remarks>
    ''' http://bytes.com/topic/asp-classic/answers/439176-how-get-clients-ip-address-asp-net
    ''' </remarks>
    Private ReadOnly Property ClientIPAddress() As String
        Get

            'Set default return value
            ClientIPAddress = "<unable to be determined>"

            Try
                Dim strClient_HTTP_X_FORWARDED_FOR As String = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
                Dim strClient_REMOTE_ADDR As String = Request.ServerVariables("REMOTE_ADDR")

                'Check if the XFF header is present
                If Not String.IsNullOrEmpty(strClient_HTTP_X_FORWARDED_FOR) Then

                    'Use the first entry in the HTTP_X_FORWARDED_FOR list of IP addresses (comma separated)
                    '- the first entry is the Client IP address, the last entry is the last proxy IP address
                    Dim ipRange As String() = strClient_HTTP_X_FORWARDED_FOR.Split(","c)
                    ClientIPAddress = ipRange(0).Trim

                Else

                    'Use the REMOTE_ADDR value
                    ClientIPAddress = strClient_REMOTE_ADDR.Trim

                End If

            Catch ex As Exception
                'Return default value on exception

            End Try

        End Get
    End Property

(HttpServletRequest request)
request.getRemoteAddr();
request.getRemoteUser()