VBA实用小程序76：显示IP地址

Sub DetectIPAddress()
    Dim IPConfig As Object
    Dim IPConfigSet As Object
    Dim i As Long
 
    Set IPConfigSet =GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("selectIPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
           For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                Debug.PrintIPConfig.IPAddress(i)
            Next i
        End If
    Next IPConfig
End Sub