سلام
براي پيدا كردن MAC address هم ميتونيد از اين كد بهره ببريد:
Sub GetMACAddress()
' get a list of enabled adaptor names and MAC addresses
' from msdn.microsoft.com/en-us/library/windows/desktop/aa394217(v=vs.85).aspx
Dim objVMI As Object
Dim vAdptr As Variant
Dim objAdptr As Object
Set objVMI = GetObject("winmgmts:\\" & "." & "\root\cimv2")
Set vAdptr = objVMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objAdptr In vAdptr
MsgBox objAdptr.macaddress
Next objAdptr
End Sub