MOTOBIT.COM - ASP upload, IIS utility ASP sample

Set DNS = CreateObject("TCPIP.DNS")

On Error Resume Next
host = DNS.GetHostByIP(Request.ServerVariables("REMOTE_ADDR"))
If Err <> 0 Then
  'some dns error - host not found, ...
End If
On Error Goto 0