내 컴퓨터의 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필요하신 분은 첨부파일 받아가세요.
'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| [VBA] 다른 엑셀 또는 다른 시트에서 SQL 로 데이터 가져오기 (0) | 2015.05.15 |
|---|---|
| [VBA] 작업량 실적 그래프화 표시 (0) | 2015.05.14 |
| [VBA] 엑셀 표 테두리 씌우기 (0) | 2015.05.08 |
| 요일별 최대값, 최소값 구하는 VBA (0) | 2015.05.05 |
| [VBA] 범위구간의 행 전체가 비어 있을 경우 삭제 (0) | 2015.05.04 |
Link2Me