엑셀 VBA 기본기능 정리 - 아이피 검증

엑셀 VBA 기본기능 정리 - 아이피 검증

• WMI(Management Instrumentation) : 윈도우에서 관리 데이터 및 작업을 위한 인프라
• 개요 : WMI를 통해 컴퓨터 정보를 불러오는 쿼리를 실행하여 그 중 IP값을 추출하는 코드이나, WMI 개체가 이해하기 어려운 별도 시스템이므로, 이해보단 활용에 주안점을 두는 것이 좋겠다.

 

Sub 아이피검증()
'IP검증
    Dim objWMI As Object
    Dim objQuery As Object
    Dim objQueryItem As Object
    Dim vIpAddress
    Dim i As Long
    i = 1
'Create WMI Object
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2")

'Query WMI
    Set objQuery = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

'쿼리의 첫 결과값 불러오기(For문 없이 쿼리값을 가져올 수 없음)
    For Each objQueryItem In objQuery
        If i = 1 Then vIpAddress = objQueryItem.ipaddress(0)
        i = i + 1
    Next

'판정   
If vIpAddress  <> "105.13.41.1" Then MsgBox "Error"

End Sub