Hi
i solved this question by myslef
Dim SERVERIP As String
Dim CLIENTIP As String = String.Empty
Dim ipEntry As IPHostEntry = Dns.GetHostByName(Dns.GetHostName())
Dim IpAddr As IPAddress() = ipEntry.AddressList
Dim cur As String = Request.UserHostAddress()
SERVERIP = IpAddr(0).ToString()
CLIENTIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If CLIENTIP = "" Then
CLIENTIP = Request.ServerVariables("REMOTE_ADDR")
End If
If (CLIENTIP = "::1") Then
Else
End If