How do I get MAC address? (1 Viewer)

[mester]

create a function out of it, this one will return an Array (string) of mac address:
to get the actual mac address, you need to parse the returned array : mid(a(I), instrrev(a(I), " ")+1)

dim arr as variant
dim v as variant

arr=getLocalMACAddress()
for each v in arr
debug.print v
next

Public Function getLocalMACAddress() As Variant
    ' 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
    Dim arr() As String
    Dim i As Integer
   
    Set objVMI = GetObject("winmgmts:\\" & "." & "\root\cimv2")
    Set vAdptr = objVMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
   
    For Each objAdptr In vAdptr
        ReDim Preserve arr(i)
        arr(i) = objAdptr.Caption & " " & objAdptr.MACAddress
        i = i + 1
        'Debug.Print objAdptr.Caption & " " & objAdptr.MACAddress
    Next objAdptr
    getLocalMACAddress = arr
End Function

Thanks a lot, i'll try this one also.