IP주소를 프로그램에서 적용하고자 할 때 사용법 (Wmi Object)

	Wmi Object를 이용해서 프로그램에 IP주소를 적용 할 때 사용법
1. IP주소(IP Address)를 프로그램에서 알고자 할 때 사용법을 공유 합니다. 2. 이 정보는 프로그램 작성할 때 매우 유용합니다. 3. 소스내용은 VB로 작성했습니다.   (여러분의 댓글이 있으면, 본 블러그를 찾아오시는 모든분에게 좋은정보가 추가됩니다)

1. VB에 의한 사용법 설명

A. WMI object사용 호출방법

① VB 프로그램으로 IP주소 알아보는 방법을 공유 합니다. (소스를 첨부 했습니다)

Private Const WMISql As String = "SELECT IPAddress, IPSubnet, DefaultIPGateway FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True "

 

Public Function Gf_IPAddress() As String
    On Error GoTo Err
   
    Dim oWMI  As Object
    Dim oItms As Object
    Dim oItm  As Object
   
    Set oWMI = GetObject("winmgmts:\\" & Environ("ComputerName") & "\root\CIMV2")
    Set oItms = oWMI.ExecQuery(WMISql, , 48)
   
    For Each oItm In oItms
        Gf_IPAddress = oItm.IPAddress(0)
    Next
   
Err:
   
    Set oWMI = Nothing
    Set oItms = Nothing
    Set oItm = Nothing
   
    On Error GoTo 0
   
End Function

B. 파일 다운 

ip주소취득법.txt

 

사용 후 평가를 해 주시면, 블러그 찾아오시는 모든분들에게 좋은정보를 제공할 수 있는 공유지원역할을 해주시게 되는 것 입니다.

이상으로 블로그를 방문해 주신 모든 분들께 감사드리며, 본 포스팅을 마치도록 하겠습니다.

좋은 정보를 공유해요~~