get The local Mac Address

get The local Mac Address

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- get The local Mac Address (http://www.webasp.net/article/4/3999.htm)

-- 作者：未知
-- 发布日期： 2003-07-12

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

webasp.net