wget_get The local Mac Address

更新时间：2014-04-05 来源：刷单平台手机版 字体：大中小

【www.bbyears.com--刷单平台】

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

本文来源：http://www.bbyears.com/taobaodaxue/5374.html