ReverseDnsLookup
ReverseDnsLookup se utiliza para convertir nombres de host en direcciones IP.
Sintaxis
ReverseDnsLookup(IP)
Devolución
Cadena que contiene el nombre de host devuelto.
Ejemplo
Búsqueda y búsqueda inversa de DNSBase de datos que utilizan las redes TCP e IP, que permite la conversión de nombres de host en números IP y el suministro de otra información relacionada con dominios. muy simple:
Function Main
Dim SocketObject As Object
Dim ServerName As String
Dim IP As String
Dim ResolvedName As String
'Retorno de carro y avance de línea
cr = Chr(13) + Chr(10)
ServerName = "whois.networksolutions.com"
echo("Resolving"+cr)
Socket.SetTimeout 5000,5000
ip = socket.DnsLookup(NombredeServidor)
echo(ServerName + " resolves to the IP Address:"+cr )
echo(ip +cr)
ResolvedName = Socket.ReverseDnsLookup(ip)
echo(cr)
echo("IP Address "+ip+ " resolves to "+cr)
echo(ResolvedName+cr)
End Function