列表网络适配器名称与IPv4地址

Question

我试图列出唯一的ACTIVE网络适配器与其IPv4地址在一台计算机上。我有这个代码，但它会列出每个网卡或连接或不连接。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    ListView1.View = View.Details 
    ListView1.GridLines = True 
    ListView1.FullRowSelect = True 
    ListView1.Columns.Add("Interface Name", 100) 
    ListView1.Columns.Add("MAC address", 100) 
    ListView1.Columns.Add("IPv4 address", 100) 
    ListView1.Columns.Add("Network Mask", 100) 
    ListView1.Columns.Add("IPv6 Address", 100) 
    ListView1.Columns.Add("Link Local Address", 100) 
    ListView1.Columns.Add("IPv5 Address", 100) 
End Sub 

Private Sub getinterface() 
    'get all network interface available in system 
    Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() 
    If nics.Length < 0 Or nics Is Nothing Then 
     MsgBox("No network interfaces found") 
     Exit Sub 
    End If 


    'if interfaces are found let list them. first clear the listview items 
    ListView1.Items.Clear() 


    For Each netadapter As NetworkInterface In nics 
     'next lets set variable to get interface properties for later use 
     Dim intproperties As IPInterfaceProperties = netadapter.GetIPProperties() 
     'now add the network adaptername to the list 
     ListView1.Items.Add(netadapter.Name) 


     'now get the mac address of this interface 
     Dim paddress As PhysicalAddress = netadapter.GetPhysicalAddress() 
     Dim addbyte As Byte() = paddress.GetAddressBytes() 
     Dim macaddress As String = "" 


     'now loop through the bytes value and change it to hex 
     For i = 0 To addbyte.Length - 1 
      macaddress &= addbyte(i).ToString("X2") 'change string to hex 
      'now let separate hex value with -except last one 
      If i <> addbyte.Length - 1 Then 
       macaddress &= "-" 
      End If 

     Next 

     'ount item in listview 
     Dim icount As Integer = ListView1.Items.Count 

     'use try 
     Try 
      With ListView1.Items(icount - 1).SubItems 
       .Add(macaddress) 
       '.Add(intproperties.UnicastAddresses(2).Address.ToString) 
       .Add(intproperties.AnycastAddresses(2).Address.ToString) 

       .Add(intproperties.UnicastAddresses(2).IPv4Mask.ToString) 

       .Add(intproperties.UnicastAddresses(0).Address.ToString) 
       .Add(intproperties.UnicastAddresses(1).Address.ToString) 
       '.Add(IPAddress.Parse(a).AddressFamily == AddressFamily.InterNetwork) 
      End With 

     Catch ex As Exception 

     End Try 

    Next 
    'now lets make auto size columns 
    ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent) 
End Sub 

有没有更好的方法来做到这一点？列出唯一连接的具有IPv4地址的网络适配器。我已经尝试了WMI代码编辑器，但不知道要采用哪一种来生成适配器名称和IP地址

Answer 1

下面是我找到的解决方案。

For Each netadapter As NetworkInterface In nics 
     'next lets set variable to get interface properties for later use 
     Dim intproperties As IPInterfaceProperties = netadapter.GetIPProperties() 

     'get first number of IP address. 
     Dim firstnum As String 
     Try 
      firstnum = intproperties.UnicastAddresses(1).Address.ToString() 
      firstnum = firstnum.Substring(0, firstnum.IndexOf(".")) 
     Catch ex As Exception 
      'If not IPv4 then 
      firstnum = "NOPE" 
     End Try 

     'check if first number if valid IPv4 address 
     If Val(firstnum) > 0 And Not Val(firstnum) = 169 And Not Val(firstnum) = 127 Then 


      'now add the network adaptername to the list 
      ListView1.Items.Add(netadapter.Name) 

Answer 2

使用netadapter.OperationalStatus == OperationalStatus.Up选择活动的适配器。

（对不起，这是C＃，但VB中的等价物应该很容易。）