utilise les variables de request.servervariables
Pour ton cas :
request.servervariables("REMOTE_ADDR")
Copie ces lignes de code ci-dessous et teste le sur un serveur IIS :
<%
Response.Write("Server Variables
")
BlankVars= " Blank Server Variables
" & vbcrlf
quote =chr(34)
For Each Key in Request.ServerVariables
If instr(Key,"_ALL")+instr(key,"ALL_")=0 then
tempvalue=trim(request.servervariables(Key))
If len(tempvalue)=0 then
BlankVars=BlankVars & Key & ", "
Else
response.write "request.servervariables(" & quote
response.write Key & quote & ") "
response.write " =
" & tempvalue & "" & vbcrlf
End If
end if
Next
response.write mid(BlankVars,1,len(BlankVars)-2)
%>
KIM