How do I get MAC address? (1 Viewer)

marlan · Oct 10, 2011

Hi all of you,

I would like my acc 2003 software to get the users MAC address. I've found this on this forum, and other basically similar answers at other sites. They all return me the same answer: 0-0-0-0-0-0. From reading on I understand that because I have 2 MAC cards, one of them is wireless, I actually get the address of an adaptor, not of the card.

can anyone please help me on getting passed the adaptor, and receiving this unique ID number?

vbaInet · Oct 10, 2011

Have a look at this:

http://msdn.microsoft.com/en-us/library/windows/desktop/aa394595%28v=vs.85%29.aspx

gblack · Oct 10, 2011

I looked up this one:
http://support.microsoft.com/kb/118623

penguino29 · Oct 12, 2011

Hi Marlan,

The following code works in Access 2010. Maybe you can give it a try.

Code:

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
    Debug.Print objAdptr.Caption & " " & objAdptr.MACAddress
Next objAdptr

End Sub

The above will print out list of adaptor's name (objAdptr.Caption) and its associated MAC address (objAdptr.MACAddress) in the immediate window.

I have yet to figure out how to get the IP addresses as they appear to be in an array.

jose.natali · Aug 13, 2013

This work for me: (Access 2007)

Code:

Public sub NIC_Info As String

    Dim myWMI As Object, myObj As Object, Itm

    Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set myObj = myWMI.ExecQuery("SELECT * FROM " & _
                     "Win32_NetworkAdapterConfiguration " & _
                     "WHERE IPEnabled = True")
    For Each Itm In myObj
        debug.print Itm.IPAddress(0)
        debug.print Itm.MACAddress
        Exit for
    Next
End sub

marlan · Aug 14, 2013

Hi, I haven't used it at the time (decided not to use Mac IDs), but have now tested jose.natali's method, and it seems to give a MAC ID. I got the same ID for my Cable and wireless networks, but it wasn't 0. Please let us know if it does the job for you.

spikepl · Aug 14, 2013

@marlan

you are wasting your time on a spammer

marlan · Aug 14, 2013

?? who? how do you identify one?

mester · May 12, 2020

jose.natali said:

This work for me: (Access 2007)

Code:

Public sub NIC_Info As String

    Dim myWMI As Object, myObj As Object, Itm

    Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set myObj = myWMI.ExecQuery("SELECT * FROM " & _
                     "Win32_NetworkAdapterConfiguration " & _
                     "WHERE IPEnabled = True")
    For Each Itm In myObj
        debug.print Itm.IPAddress(0)
        debug.print Itm.MACAddress
        Exit for
    Next
End sub

hi how are you? please, it doesn't work for me, can you explain where should i put this code?
i mean , should i use it in a buton or where exactly?

Micron · May 12, 2020

#1 - the thread is 7 years old and I doubt anyone you're addressing will be around to answer your question
#2 - when you have already posted a question on this forum somewhere, please don't ask the same question in another part of the forum unless you provide links between your posts. That assumes you have a legitimate reason for posting the same question 2x in different places. This is also you, yes?

Mac Address

Hi everyone Can we get the mac address using vba access plz

www.access-programmers.co.uk

mester · May 12, 2020

Micron said:
#1 - the thread is 7 years old and I doubt anyone you're addressing will be around to answer your question
#2 - when you have already posted a question on this forum somewhere, please don't ask the same question in another part of the forum unless you provide links between your posts. That assumes you have a legitimate reason for posting the same question 2x in different places. This is also you, yes?

Mac Address

Hi everyone Can we get the mac address using vba access plz

www.access-programmers.co.uk

i am so sorry, i am new here so i don't know the rules yet , sorry again

Micron · May 12, 2020

No problem.
Did you not have success with your other post? You seemed thankful for the suggestions that were offered.

mester · May 12, 2020

Micron said:
No problem.
Did you not have success with your other post? You seemed thankful for the suggestions that were offered.

Yes , thanks, your suggestions helped me a lot.

isladogs · May 12, 2020

Did you actually try the function I posted in the other thread? If so, did it work for you? If not, what happened?

mester · May 12, 2020

mester said:
Yes , thanks, your suggestions helped me a lot.

The code is working, but when i am not connected to the internet, i can't get the Mac Adress, is there any solution plz.
My second Question is, the serial number of the computer , is it unique and could we use it to protect our applications from stelling. I use this function to get my serial numebr :
SerialNumber= CreatObject("Scripting.FileSystemObject").GetDrive("c:\").SerialNumber.

It's work for me but instead of getting the same serial number back the laptop or when i use cmd.exe ,i get another number.

Gasman · May 12, 2020

Google to the rescue !!!
https://stackoverflow.com/questions/41031457/extracting-offline-mac-address

isladogs · May 12, 2020

@mester
Suggest you create your own thread and explain exactly what you are trying to do.
If it helps, I have functions for finding the hard drive, motherboard and CPU numbers and use each of these in conjunction with other information to secure some of my apps using an activation process so they can only be used on a registered computer(s)

mester · May 12, 2020

Gasman said:
Google to the rescue !!!
https://stackoverflow.com/questions/41031457/extracting-offline-mac-address

Thank you so much, it works well even if i am not connected, i don't know without you (AWF's members) how my life will be, you really help me, thanks

mester · May 12, 2020

isladogs said:
@mester
Suggest you create your own thread and explain exactly what you are trying to do.
If it helps, I have functions for finding the hard drive, motherboard and CPU numbers and use each of these in conjunction with other information to secure some of my apps using an activation process so they can only be used on a registered computer(s)

Thanks for your help, Gasman proposition did well with me, thanks again

arnelgp · May 12, 2020

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

Code:

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

How do I get MAC address? (1 Viewer)

Registered User.

AWF VIP

Registered User.

Registered User.

New member

Registered User.

Eledittingent Beliped

Registered User.

Member

AWF VIP

Member

AWF VIP

Member

MVP / VIP

Member

Attachments

Enthusiastic Amateur

MVP / VIP

Member

Member

..forever waiting... waiting for jellybean!

Similar threads

Users who are viewing this thread