VB6获取本机网络适配器信息（网卡名称、IP地址、子网掩码、默认网关等）

Function PrintAll_NICAdapter_information()

  Dim NIC_Info As String

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

    i = 0

    For Each objItem In colItems

        i = i + 1

        NIC_Info = NIC_Info & "------------------------------------------------" & vbCrLf & _
                    "Win32_NetworkAdapterConfiguration instance: " & i & vbCrLf & _
                    "------------------------------------------------" & vbCrLf

        strDefaultIPGateway = GetMultiString_FromArray(objItem.DefaultIPGateway, ", ")

        NIC_Info = NIC_Info & "MACAddress                  : " & vbTab & objItem.MACAddress & vbCrLf & _
                    "Description                 : " & vbTab & objItem.Description & vbCrLf & _
                    "DHCPEnabled                 : " & vbTab & objItem.DHCPEnabled & vbCrLf

        strIPAddress = GetMultiString_FromArray(objItem.IPAddress, ", ")

        NIC_Info = NIC_Info & "IPAddress                   : " & vbTab & strIPAddress & vbCrLf

        strIPSubnet = GetMultiString_FromArray(objItem.IPSubnet, ", ")

        NIC_Info = NIC_Info & "IPSubnet                    : " & vbTab & strIPSubnet & vbCrLf & _
                    "IPConnectionMetric          : &#