MAC address 주소 가져오는 VBA

내 컴퓨터의 MAC 주소를 가져오는 VBA 코드입니다.

구글링해서 외국사이트에서 찾아서 테스트 해봤더니 잘 되네요

먼저 내 PC의 MAC 주소가 뭔지 알아보겠습니다.

MAC(Media Access Control Address) 는 컴퓨터의 LAN 카드에 저장된 고유식별번호 입니다.

우리가 접속하는 인터넷 브라우저는 IP통신(3 Layer)을 합니다.

IP통신으로는 내 컴퓨터의 MAC주소 정보(2 Layer)는 알 수가 없습니다.

윈도우모양 키 + R 를 누르면 나오는 창에다가 cmd 를 입력하고 엔터키를 치면 아래 화면이 나옵니다.

ipconfig /all 을 입력하면

내 컴퓨터의 MAC주소가 뭔지 알려줍니다.

이 정보를 엑셀에서 가져오는 VBA 코드입니다.

Sub getMACaddress()
    Dim strComputer As String
    Dim objWMIService As Object
    Dim colAdapters As Object
    Dim objAdapter As Object
   
    Worksheets("Setting").Cells(1, 2).Offset(1).ClearContents
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
   
    For Each objAdapter In colAdapters
        MsgBox "Physical address: " & objAdapter.MACAddress
'        Worksheets("Setting").Cells(Rows.Count, 2).End(3)(2) = objAdapter.MACAddress
    Next objAdapter
End Sub

실행(F5)를 하면 팝업창이 뜨는데 정보를 비교하면 똑같다는 걸 알 수 있습니다.

getMACaddress.vbs

필요하신 분은 첨부파일 받아가세요.