Sub Main()
' IPアドレスからホスト名を取得する
Dim ipAddress As String = "192.168.0.102"
Dim hostInfo As IPHostEnTry = Dns.GetHostByAddress(ipAddress)
Console.WriteLine(hostInfo.HostName)
' ホスト名からIPアドレスを取得する
Dim hostName As String = "dapc89"
Dim ipInfo As IPHostEnTry = Dns.GetHostByName(hostName)
Dim ipInfoAddress As IPAddress
For Each ipInfoAddress In ipInfo.AddressList
Console.WriteLine(ipInfoAddress)
Next
' ▼筆者の環境での出力結果:▼
' dapc89.d-advantage.com
' 192.168.0.102
End Sub
'System.Net.Dns.GetHostByAddress(string)' は古い形式です: 'GetHostByAddress is obsoleted for this type, please use GetHostEntry instead. http://go.microsoft.com/fwlink/?linkid=14202' ……省略……
'System.Net.Dns.GetHostByName(string)' は古い形式です: 'GetHostByName is obsoleted for this type, please use GetHostEntry instead. http://go.microsoft.com/fwlink/?linkid=14202' ……省略……
Sub Main()
' IPアドレスからホスト名を取得する
Dim ipAddress As String = "192.168.0.102"
Dim hostInfo As IPHostEntry = Dns.GetHostEntry(ipAddress)
Console.WriteLine(hostInfo.HostName)
' ホスト名からIPアドレスを取得する
Dim hostName As String = "dapc89"
Dim ipInfo As IPHostEntry = Dns.GetHostEntry(hostName)
Dim ipInfoAddress As IPAddress
For Each ipInfoAddress In ipInfo.AddressList
Console.WriteLine(ipInfoAddress)
Next
' ▼筆者の環境での出力結果:▼
' dapc89.d-advantage.com
' 192.168.0.102
End Sub