String Resolve(DNS Address)
Takes a DNS name (such as www.microsoft.com), and returns the associated IP address. If no IP address can be resolved, returns an Empty String.
String ReverseResolve(IP Address)
Takes an IP address and finds the DNS name (such as www.microsoft.com). If no DNS hostname can be resolved, returns the IP address it is passed.
<%@ LANGUAGE="VBSCRIPT" %>
<%
Set dns = Server.CreateObject("ActiveDNS.Resolve")
Address = "127.0.0.1"
Hostname = "localhost"
If dns.IsValidNumericAddress(Address) Then
Response.Write Address & " Is a valid numeric address.<BR>"
Else
Response.Write Address & " Is not a valid numeric address.<BR>"
End If
Response.Write "Host: " & Hostname & " resolves to address: " & _
dns.Lookup(Hostname) & "<BR>"
Response.Write "Address: " & Address & " resolves to host: " & _
dns.ReverseLookup(Address) & "<BR>"
%>