Enregistrement du composant :

copier la dll fournit dans winnt/system32 par exemple
puis faire Démarrer | Exécuter et taper regsvr32 dnsfinder.dll

Utilisation du composant avec Asp :

<%
'------- Déclaration du composant
Dim objDNSFinder
Set objDNSFinder = Server.CreateObject("DNSFinder.DNS")
%>

Pour résoudre une adresse IP ou un nom de domaine c'est le même code :
<%=response.write(objDNSFinder.getDNS(adresse)) %>

Destruction du composant :
<% set objDNSFinder=nothing %>

Exemple d'utilisation : Résoudre l'IP de votre visiteur

<%
Dim objDNSFinder
Set objDNSFinder = Server.CreateObject("DNSFinder.DNS")
host=objDNSFinder.getDNS(request.servervariables("REMOTE_ADDR"))
Set objDNSFinder=nothing
response.write(host)
%>

Téléchargement

http://net.2si-systemes.fr/francais/asp/dns.asp