Option Explicit

'MIB (Management Information Base) Structures
Public Type MIB_IPADDRROW
  dwAddr(0 To 3) As Byte                ' IP address
  dwIndex As Long                       ' interface index
  dwMask(0 To 3) As Byte                ' subnet mask
  dwBCastAddr(0 To 3) As Byte           ' broadcast address
  dwReasmSize As Long                   ' rassembly size
  unused As Long                        ' not currently used
End Type

Public Const ANY_SIZE = 16

Public Type MIB_IPADDRTABLE
  dwNumEntries As Long                  ' number of entries in the table
  Table(1 To ANY_SIZE) As MIB_IPADDRROW ' array of IP address entries
End Type

'IP Helper Functions
'IP Address Management
Public Declare Function GetIpAddrTable Lib "iphlpapi" _
 (pIpAddrTable As MIB_IPADDRTABLE, pdwSize As Long, ByVal Border As Long) As Long
'

Public Function GetIP() As String
  Dim Table As MIB_IPADDRTABLE
  Dim i As Integer
  
  If GetIpAddrTable(Table, Len(Table), 0) = 0 Then GetIP = Table.Table(1).dwAddr(0) & "." & Table.Table(1).dwAddr(1) & "." & Table.Table(1).dwAddr(2) & "." & Table.Table(1).dwAddr(3)
  MsgBox Table.dwNumEntries
  For i = 1 To Table.dwNumEntries
    MsgBox Table.Table(i).dwAddr(0) & "." & Table.Table(i).dwAddr(1) & "." & Table.Table(i).dwAddr(2) & "." & Table.Table(i).dwAddr(3)
  Next i
End Function

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim host As IPHostEntry
    'Dim localIP As String
    host = Dns.GetHostEntry(Dns.GetHostName())
    Dim ip As IPAddress
    For Each ip In host.AddressList
      If ip.AddressFamily = Sockets.AddressFamily.InterNetwork Then
        Debug.WriteLine(ip.ToString)
      End If
    Next
  End Sub

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
    Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
    Console.WriteLine("IPv4 interface information for {0}.{1}", properties.HostName, properties.DomainName)

    Dim adapter As NetworkInterface
    For Each adapter In nics
      ' Only display informatin for interfaces that support IPv4. 
      If adapter.Supports(NetworkInterfaceComponent.IPv4) Then
        Console.WriteLine(adapter.Description)
      End If
    Next adapter
  End Sub

  Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    For Each adapter In NetworkInterface.GetAllNetworkInterfaces()
      For Each uni In adapter.GetIPProperties().UnicastAddresses
        If (uni.Address.AddressFamily = Sockets.AddressFamily.InterNetwork) Then
          Debug.WriteLine(uni.Address.ToString)
        End If
      Next
    Next
  End Sub

      Dim uniCast As UnicastIPAddressInformationCollection = adapter.GetIPProperties().UnicastAddresses
      If uniCast.Count > 0 Then
        'Dim uni As UnicastIPAddressInformation
        For Each uni In uniCast

  Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    For Each adapter In NetworkInterface.GetAllNetworkInterfaces()
      If adapter.Supports(NetworkInterfaceComponent.IPv4) Then
        For Each uni In adapter.GetIPProperties().UnicastAddresses
          If (uni.Address.AddressFamily = Sockets.AddressFamily.InterNetwork) Then
            Debug.WriteLine(uni.Address.ToString)
          End If
        Next
      End If
    Next
  End Sub