Dim mc As ManagementClass
Dim moc As ManagementObjectCollection
Dim mo As ManagementObject
mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
moc = mc.GetInstances() ' Get all network adapter instances
For Each mo In moc
If mo.Item("IPEnabled") = True Then
TextBox1.Text = mo.Item("MacAddress").ToString()
End If
mo.Dispose()
Next
|