This method's a bit flakey, but it'll work from time to time.
<%
Dim sIP
Dim oShell, oExec, sCommand, sOutput
sIP = Request.ServerVariables("REMOTE_ADDR")
sCommand = "%comspec% /c @echo off & for /f ""tokens=2"" %q in ('ping -n
1 -a " & sIP & "^|find /i ""pinging""') do echo %q"
Set oShell = Server.CreateObject("WScript.Shell")
Set oExec = oShell.Exec(sCommand)
sOutput = sOutput & oExec.StdOut.ReadAll
Set oExec = Nothing
Set oShell = NOthing
Response.WRite sOutput
%>
Watch for line wrap. This is all one line:
sCommand = "%com....... echo %q"
You could also apply the same logic and use nslookup instead.
Ray at work
"mark | r" <ma**@nmd.freeuk.com> wrote in message
news:40***********************@news.dial.pipex.com ...
ive got a piece of software (perl) that i use to track visitors on my
site. this software displays both ip addresses and domains of visitors
e.g.
A visitor from 81-178-202-110.dsl.pipex.com (81.178.202.110)
arrived without a referring URL,
and visited www.newmediadesigns.co.uk/index.shtml
at 03:01:28 PM on Friday, March 26, 2004.
This visitor used Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1).
what code do i need to display this domain information in asp?
thanks
mark