ReverseDnsLookup
ReverseDnsLookup dient zum Auflösen von IP-Adressen in Hostnamen.
Syntax
ReverseDnsLookup(IP)
Rückgabewert
String, der den zurückgegebenen Hostnamen enthält.
Beispiel
Sehr einfacher DNSEine in TCP/IP-basierten Netzwerken verwendete Datenbank, mit der sich Hostnamen in IP-Adressen übersetzen und andere Domänen-bezogene Informationen bereitstellen lassen.-Lookup und Reverse Lookup:
Function Main
Dim SocketObject As Object
Dim ServerName As String
Dim IP As String
Dim ResolvedName As String
'Wagenrücklauf und Zeilenvorschub
cr = Chr(13) + Chr(10)
ServerName = "whois.networksolutions.com"
echo("Wird gesucht"+cr)
Socket.SetTimeout 5000,5000
ip = socket.DnsLookup(ServerName)
echo(ServerName + "entspricht der IP-Adresse:"+cr )
echo(ip +cr)
ResolvedName = Socket.ReverseDnsLookup(ip)
echo(cr)
echo("IP-Adresse "+ip+ "entspricht "+cr)
echo(ResolvedName+cr)
End Function