网卡没联机,没有添加IPX和Netbios协议,用IPX和Netbios获得本机MAC地址都是0??如何不用IPX和Netbios获得本机网卡的MAC地址??

解决方案 »

  1.   

    用WMI:
    Private Sub Command2_Click()
        Dim objWMIService, colNetAdapters, objNetAdapter, strComputer As String
        strComputer = "."
        Dim s As String
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        Set colNetAdapters = objWMIService.ExecQuery("Select   *   from   Win32_NetworkAdapterConfiguration   where   IPEnabled=TRUE")
        For Each objNetAdapter In colNetAdapters
             s = s + objNetAdapter.MACAddress + vbCrLf
        Next
        MsgBox s
    End Sub