Mega Code Archive
Get Aliases from IPHostEntry
Imports System.Net
Imports System.Net.Sockets
Public Class Tester
Public Shared Sub Main
Dim localHostName As String
Dim localHostEntry As IPHostEntry
Dim aliasList As String()
Dim addrList As IPAddress()
Dim i As Integer
Dim strTemp As String
Try
localHostName = Dns.GetHostName
localHostEntry = Dns.GetHostByName(localHostName)
Console.WriteLine(localHostEntry.HostName)
aliasList = localHostEntry.Aliases
For i = 0 To aliasList.Length - 1
Console.WriteLine(aliasList(i).ToString)
Next
addrList = localHostEntry.AddressList
For i = 0 To addrList.Length - 1
Console.WriteLine(addrList(i).ToString)
Next
Catch ex As SocketException
Console.WriteLine(ex.StackTrace.ToString)
End Try
End Sub
End Class
rntsoft
192.168.1.101