ReverseDnsLookup
ReverseDnsLookup viene utilizzato per risolvere gli indirizzi IP in nomi host.
Sintassi
ReverseDnsLookup(IP)
Restituisce
Stringa contenente il nome host restituito.
Esempio
Ricerca DNSUn database utilizzato dalle reti TCP/IP che consente la traduzione dei nomi host in numeri IP e di fornire altre informazioni relative al dominio. molto semplice e invertita:
Function Main
Dim SocketObject As Object
Dim ServerName As String
Dim IP As String
Dim ResolvedName As String
'Ritorno a capo e avanzamento riga
cr = Chr(13) + Chr(10)
ServerName = "whois.networksolutions.com"
echo("Risoluzione"+cr)
Socket.SetTimeout 5000,5000
ip = socket.DnsLookup(ServerName)
echo(ServerName + " risolve nell’indirizzo IP:"+cr )
echo(ip +cr)
ResolvedName = Socket.ReverseDnsLookup(ip)
echo(cr)
echo("Indirizzo IP "+ip+ " risolve in "+cr)
echo(ResolvedName+cr)
End Function