Private Sub cmdGetMAC_Click()
Dim strmac As String
Dim objwmiservice As Object
Dim colitems As Object
Dim objitem As Object

Set objwmiservice = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
Set colitems = objwmiservice.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objitem In colitems
     strmac = objitem.macaddress
     lstMAC.AddItem Replace(Trim(strmac), ":", "-")
Next
End Sub

引用Microsft WMI Scripting V1.X Library对象
Dim mc, mo
Dim zccode As String
    Set mc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each mo In mc
        If mo.IPEnabled = True Then
           zccode = mo.MacAddress'得到网卡物理地址
            Exit For
        End If
    Next
Label1=zccode'Label1里面就显示出网卡物理地址.


[ 本帖最后由 vbvcr51 于 2013-12-2 12:55 编辑 ]

试了还不行

复制用我的代码。我调试出来的。怎么会不行，看我发的图。

[ 本帖最后由 vbvcr51 于 2013-12-2 12:54 编辑 ]