ＩＰアドレスを調べる

＜分類：値取得＞
＜使用例：ネットワーク内のどのパソコンかを調べる＞
＜プログラム例＞

Sub 使用例()
    Dim s As String
    
    s = 共通_IP取得()
    
    If s <> "" Then
       MsgBox ("IPｱﾄﾞﾚｽは" & s & "です")
    End If

End Sub

Function 共通_IP取得()
    Dim objConf, objIPEna, strIP
  
    共通_IP取得 = ""
    Set objConf = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where (IPEnabled = TRUE)")

    For Each objIPEna In objConf
        For Each strIP In objIPEna.IPAddress
            共通_IP取得 = strIP
            Exit Function
        Next
    Next
End Function