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

使用VBA也可以显示IP地址，使用下面简单的VBA代码就能做到。

代码语言：javascript复制

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

你可以试试看！运行程序后，在立即窗口会打印出IP地址。

注：本文整理自vbaexpress.com论坛，有兴趣的朋友可以试试。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

vba tcp/ip

0 人点赞