按键精灵8读取网卡MAC物理地址

//读取网卡MAC物理地址(C8:0A:A9:5D:E8:83)
Function GetMAC()
    Dim mc,mo
    Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each mo in mc
        If mo.IPEnabled=True Then
            GetMAC=mo.MacAddress
            Exit For
        End If
    Next
End Function


评论: 0 | 引用: 0 | 查看次数: 6513
发表评论
登录后再发表评论!