添加引用： system.management.dll

帮助文件：https://docs.microsoft.com/zh-cn/windows/win32/cimwin32prov/win32-networkadapterconfiguration

运行如下代码:

Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FRO M Win32_NetworkAdapterConfiguration")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
For Each mo In queryCollection
    If IsDBNull(mo.Item("macaddress")) = False Then
        If mo.Item("macaddress") <> "" AndAlso mo.Item("IPEnabled") Then
            output.show(mo.Item("macaddress"))
            output.show(mo.Item("DNSHostName"))
            For Each ip As String In mo.Item("ipaddress")
                output.show(ip)
            Next
        End If
       
    End If
Next

输出得到：

A0:D3:7A:A5:4E:0C
DESKTOP-4HGMIGM
192.168.43.112
fe80::3da9:7909:ae23:55b9

麻烦老师指导一下  谢谢！

怎么指定只获取ip4或ip6呢？