ReverseDnsLookup
ReverseDnsLookup é usado para resolver endereços IP como nomes de host.
Sintaxe
ReverseDnsLookup(IP)
Retorno
Cadeia de caracteres com o nome do host retornado.
Exemplo
Pesquisa DNSBanco de dados usado pelas redes TCP/IP que habilita a tradução dos nomes do host em números IP e o fornecimento de outras informações relacionadas ao domínio. e pesquisa reversa muito simples:
Function Main
Dim SocketObject As Object
Dim ServerName As String
Dim IP As String
Dim ResolvedName As String
'Carrega retorno e alimentação da linha
cr = Chr(13) + Chr(10)
ServerName = "whois.networksolutions.com"
echo("Resolving"+cr)
Socket.SetTimeout 5000,5000
ip = socket.DnsLookup(ServerName)
echo(ServerName + " resolve para endereço IP:"+cr )
echo(ip +cr)
ResolvedName = Socket.ReverseDnsLookup(ip)
echo(cr)
echo(“Endereço IP "+ip+ " resolve para "+cr)
echo(ResolvedName+cr)
End Function