Dim MyMac
Dim k
    Set MyMac = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
  For Each MO In MyMac
If MO.IPEnabled = True Then
     k = MO.MACAddress
    Exit For
    End If
    Next
     k = Mid(k, 1, 2) & Mid(k, 4, 2) & Mid(k, 7, 2) & Mid(k, 10, 2) & Mid(k, 13, 2) & Mid(k, 16, 2)
這段代碼在XP下沒問題,在WIN7 64位的系統下,不報錯,K值返回空