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