获得网卡MAC地址和IP地址（VB.net）

Dim  Wmi  As   New  System.Management.ManagementObjectSearcher( " SELECT * FROM Win32_NetworkAdapterConfiguration " )
TextBox1.Text  =   " "
For   Each  WmiObj  As  ManagementObject  In  Wmi. Get
     If   CBool (WmiObj( " IPEnabled " ))  Then
    TextBox1.Text  +=   " IP( "   &  WmiObj( " IPAddress " )( 0 )  &   " )|MAC( "   &  WmiObj( " MACAddress " )  &   " ) "   &  vbCrLf
     End   If
Next

如果有人运行不出来的话==>首先，引用System.Management；然后在代码中Imports System.Management；