ReverseDnsLookup

ReverseDnsLookup は IP アドレスをホスト名に解決するために使用します。

構文

ReverseDnsLookup(IP)

戻り値

戻されるホスト名を含む文字列。

非常に単純な DNSホスト名の IP 番号への変換を可能にして他のドメイン関連の情報を提供する TCP/IP ネットワークによって使用されるデータベース。 ルックアップとリバース ルックアップ:

Function Main

Dim SocketObject As Object

Dim ServerName As String

Dim IP As String

Dim ResolvedName As String

' キャリッジ リターンとライン フィード

cr = Chr(13) + Chr(10)

ServerName = "whois.networksolutions.com"

echo("Resolving"+cr)

Socket.SetTimeout 5000,5000

ip = socket.DnsLookup(ServerName)

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