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