PureBasic

Public Shared Sub ShowNetworkInterfaces()
Dim computerProperties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties
Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces
Console.WriteLine("Interface information for {0}.{1} ", computerProperties.HostName, computerProperties.DomainName)
If ((nics = Nothing) _
OrElse (nics.Length < 1)) Then
Console.WriteLine(" No network interfaces found.")
Return
End If
Console.WriteLine(" Number of interfaces .................... : {0}", nics.Length)
For Each adapter As NetworkInterface In nics
Dim properties As IPInterfaceProperties = adapter.GetIPProperties
' .GetIPInterfaceProperties();
Console.WriteLine
Console.WriteLine(adapter.Description)
Console.WriteLine(String.Empty.PadLeft(adapter.Description.Length, Microsoft.VisualBasic.ChrW(61)))
Console.WriteLine(" Interface type .......................... : {0}", adapter.NetworkInterfaceType)
Console.Write(" Physical address ........................ : ")
Dim address As PhysicalAddress = adapter.GetPhysicalAddress
Dim bytes() As Byte = address.GetAddressBytes
Dim i As Integer = 0
Do While (i < bytes.Length)
' Display the physical address in hexadecimal.
Console.Write("{0}", bytes(i).ToString("X2"))
' Insert a hyphen after each byte, unless we are at the end of the
' address.
If (i _
<> (bytes.Length - 1)) Then
Console.Write("-")
End If
i = (i + 1)
Loop
Console.WriteLine
Next
End Sub