我在VB6
中使用此代码来获取计算机的MAC Address
:
Sub GetMACAddress()
'get MAC address using WMI
Dim oWMIService As Object
Dim oColAdapters As Object
Dim oObjAdapter As Object
Set oWMIService = GetObject("winmgmts:" & "!\\.\root\cimv2")
Set oColAdapters = oWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each oObjAdapter In oColAdapters
MsgBox "MAC address formatted: " & oObjAdapter.MacAddress & vbNewLine _
& "MAC address unformatted: " & Replace(oObjAdapter.MacAddress,":","")
Next
Set oObjAdapter = Nothing
Set oColAdapters = Nothing
Set oWMIService = Nothing
End Sub
问题是我安装了在Oracle VirtualBox上运行的Windows 7,并且oColAdapters
有两个MAC地址。
如何检查我的PC是哪一台?