首先,引用System.Management;然后在代码中Imports System.Management
然后添加一个Button与2个TextBox控件(一个显示IP,一个显示MAC)
然后在Button_Click中加入以下代码
Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
TextBox1.Text = ""
TextBox2.Text = ""
For Each WmiObj As ManagementObject In Wmi.Get
If CBool(WmiObj("IPEnabled")) Then
TextBox1.Text += "IP(" & WmiObj("IPAddress")(0) & ")"
TextBox2.Text += "MAC(" & WmiObj("MACAddress") & ")"
End If
Next
运行
相关的信息如下
Caption = "[00000001] Intel(R) PRO/100 S Desktop Adapter"; '网卡信息
DatabasePath = "%SystemRoot%//System32//drivers//etc"; '网关驱动
DefaultIPGa