Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim hostName As String = ""
Dim hostInfo As IPHostEntry = Dns.GetHostByName(hostName)
Dim address As IPAddress() = hostInfo.AddressList
Dim [alias] As [String]() = hostInfo.Aliases
Console.WriteLine(hostInfo.HostName)
Dim index As Integer
For index = 0 To [alias].Length - 1
Console.WriteLine([alias](index))
Next index
For index = 0 To address.Length - 1
Console.WriteLine(address(index))
Next index
End Sub
End Class