Criado pela Server Objetcs, o AspDNS é um componente ASP que oferece recurso de pesquisa de DNS diretas e reversas, retornando o endereço IP ou o nome do servidor.
Pesquisa Direta
Este exemplo retorna o IP do domínio especificado. Altere o nome seudominio.com.br para o domínio que deseja realizar a pesquisa.
Código ASP:
<!-- Início ASP --->
<%
Set DNSLook = Server.CreateObject("AspDNS.Lookup")
strRes = DNSLook.DNSLookup ("seudominio.com.br")
Response.Write ("<b>O IP do dominio pesquisado é: " & strRes & "</b>")
%>
<!-- Fim ASP --->
Pesquisa Inversa
Este exemplo efetua o inverso da Pesquisa Direta. Informando um determinado IP, é retornado o nome de domínio agregado a ele. Altere o campo xxx.xxx.xxx.xxx para o número IP que deseja pesquisar.
Código ASP:
<!-- Início ASP --->
<%
Set objDNSLook = Server.CreateObject("AspDNS.Lookup")
strRes = objDNSLook.ReverseDNSLookup ("xxx.xxx.xxx.xxx")
Response.Write ("O endereço IP pesquisado aponta para: " & strRes & " ")
Set objDNSLook = Nothing
%>
<!-- Fim ASP --->
Nota: Alguns números IP´s poderão retornar o nome da máquina ou o nome de máscara desse IP. Esses resultados variam conforme esses servidores pesquisados foram configurados.
Abaixo outras propriedades que podem ser utilizadas com este componente. Basta incluí-las dentro do código de seu arquivo ASP.
Error
Esta propriedade relata os erros ocorridos durante a pesquisa.
Response.Write "Erro: " & objDNSLook.Error
TimeOut
Esta propriedade determina o tempo máximo de espera por uma resposta do servidor pesquisado.
objDNSLook.TimeOut = 45
Version
Esta propriedade retorna a versão do componente.
Response.Write "A versão desse componente é: " & objDNSLook.Version