DnsLookup
DnsLookup é usado para resolver nomes de host como endereços IP. Esta função costuma ser usada quando você deseja se conectar aos servidores, mas não conhece seu IP.
Sintaxe
DnsLookup(nomehost)
Retorno
Cadeia de caracteres (endereço IP).
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