| GetIPFromName(strHostName) | Retrieves the IP Address for a given hostname |
| GetNameFromIP(strIPAddress) | Retrieves the FQDN for a given IP Address |
Sample ASP Code for using the component is as follows :
<%
Dim DNS
Dim A
Set DNS = Server.CreateObject("ASPDNS.DNSLookup")
A = DNS.GetIPFromName("www.hotbot.com")
Response.Write "www.hotbot.com = " & A & "<BR>"
A = DNS.GetNameFromIP("196.25.1.1")
Response.Write "196.25.1.1 = " & A
Set DNS = Nothing
%>
Here is another Sample :
<%
Dim DNS
Dim RemoteIP
Dim A
RemoteIP = Request.ServerVariables("REMOTE_ADDR")
Set DNS = Server.CreateObject("ASPDNS.DNSLookup")
A = DNS.GetNameFromIP(CStr(RemoteIP))
Response.Write "Your Request came from " & RemoteIP & " which was resoved as " & A
Set DNS = Nothing
%>