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          : " & vbTab & objItem.IPConnectionMetric & vbCrLf & _                    "DHCPLeaseExpires            : " & vbTab & objItem.DHCPLeaseExpires & vbCrLf & _                    "DHCPLeaseObtained           : " & vbTab & objItem.DHCPLeaseObtained & vbCrLf & _                    "DHCPServer                  : " & vbTab & objItem.DHCPServer & vbCrLf & _                    "DNSDomain                   : " & vbTab & objItem.DNSDomain & vbCrLf & _                    "IPEnabled                   : " & vbTab & objItem.IPEnabled & vbCrLf & _                    "DefaultIPGateway            : " & vbTab & strDefaultIPGateway & vbCrLf & _                    "GatewayCostMetric           : " & vbTab & strGatewayCostMetric & vbCrLf & _                    "IPFilterSecurityEnabled     : " & vbTab & objItem.IPFilterSecurityEnabled & vbCrLf & _                    "IPPortSecurityEnabled       : " & vbTab & objItem.IPPortSecurityEnabled & vbCrLf        strDNSDomainSuffixSearchOrder = GetMultiString_FromArray(objItem.DNSDomainSuffixSearchOrder, ", ")        NIC_Info = NIC_Info & "DNSDomainSuffixSearchOrder  : " & vbTab & strDNSDomainSuffixSearchOrder & vbCrLf & _                    "DNSEnabledForWINSResolution : " & vbTab & objItem.DNSEnabledForWINSResolution & vbCrLf & _                    "DNSHostName                 : " & vbTab & objItem.DNSHostName & vbCrLf        strDNSServerSearchOrder = GetMultiString_FromArray(objItem.DNSServerSearchOrder, ", ")        NIC_Info = NIC_Info & "DNSServerSearchOrder        : " & vbTab & strDNSServerSearchOrder & vbCrLf & _                    "DomainDNSRegistrationEnabled: " & vbTab & objItem.DomainDNSRegistrationEnabled & vbCrLf & _                    "ForwardBufferMemory         : " & vbTab & objItem.ForwardBufferMemory & vbCrLf & _                    "FullDNSRegistrationEnabled  : " & vbTab & objItem.FullDNSRegistrationEnabled & vbCrLf        strGatewayCostMetric = GetMultiString_FromArray(objItem.GatewayCostMetric, ", ")        NIC_Info = NIC_Info & "IGMPLevel                   : " & vbTab & objItem.IGMPLevel & vbCrLf & _                    "Index                       : " & vbTab & objItem.Index & vbCrLf        strIPSecPermitIPProtocols = GetMultiString_FromArray(objItem.IPSecPermitIPProtocols, ", ")        NIC_Info = NIC_Info & "IPSecPermitIPProtocols      : " & vbTab & strIPSecPermitIPProtocols & vbCrLf        strIPSecPermitTCPPorts = GetMultiString_FromArray(objItem.IPSecPermitTCPPorts, ", ")        NIC_Info = NIC_Info & "IPSecPermitTCPPorts         : " & vbTab & strIPSecPermitTCPPorts & vbCrLf        strIPSecPermitUDPPorts = GetMultiString_FromArray(objItem.IPSecPermitUDPPorts, ", ")        NIC_Info = NIC_Info & "IPSecPermitUDPPorts         : " & vbTab & strIPSecPermitUDPPorts & vbCrLf        NIC_Info = NIC_Info & "IPUseZeroBroadcast          : " & vbTab & objItem.IPUseZeroBroadcast & vbCrLf & _                    "IPXAddress                  : " & vbTab & objItem.IPXAddress & vbCrLf & _                    "IPXEnabled                  : " & vbTab & objItem.IPXEnabled & vbCrLf        strIPXFrameType = GetMultiString_FromArray(objItem.IPXFrameType, ", ")        NIC_Info = NIC_Info & "IPXFrameType                : " & vbTab & strIPXFrameType & vbCrLf        strIPXNetworkNumber = GetMultiString_FromArray(objItem.IPXNetworkNumber, ", ")        NIC_Info = NIC_Info & "IPXNetworkNumber            : " & vbTab & strIPXNetworkNumber & vbCrLf & _                    "IPXVirtualNetNumber         : " & vbTab & objItem.IPXVirtualNetNumber & vbCrLf & _                    "KeepAliveInterval           : " & vbTab & objItem.KeepAliveInterval & vbCrLf & _                    "KeepAliveTime               : " & vbTab & objItem.KeepAliveTime & vbCrLf & _                    "MTU                         : " & vbTab & objItem.MTU & vbCrLf & _                    "NumForwardPackets           : " & vbTab & objItem.NumForwardPackets & vbCrLf & _                    "PMTUBHDetectEnabled         : " & vbTab & objItem.PMTUBHDetectEnabled & vbCrLf & _                    "PMTUDiscoveryEnabled        : " & vbTab & objItem.PMTUDiscoveryEnabled & vbCrLf & _                    "ServiceName                 : " & vbTab & objItem.ServiceName & vbCrLf & _                    "SettingID                   : " & vbTab & objItem.SettingID & vbCrLf & _                    "TcpipNetbiosOptions         : " & vbTab & objItem.TcpipNetbiosOptions & vbCrLf & _                    "TcpMaxConnectRetransmissions: " & vbTab & objItem.TcpMaxConnectRetransmissions & vbCrLf & _                    "TcpMaxDataRetransmissions   : " & vbTab & objItem.TcpMaxDataRetransmissions & vbCrLf & _                    "TcpNumConnections           : " & vbTab & objItem.TcpNumConnections & vbCrLf & _                    "TcpUseRFC1122UrgentPointer  : " & vbTab & objItem.TcpUseRFC1122UrgentPointer & vbCrLf & _                    "TcpWindowSize               : " & vbTab & objItem.TcpWindowSize & vbCrLf & _                    "WINSEnableLMHostsLookup     : " & vbTab & objItem.WINSEnableLMHostsLookup & vbCrLf & _                    "WINSHostLookupFile          : " & vbTab & objItem.WINSHostLookupFile & vbCrLf & _                    "WINSPrimaryServer           : " & vbTab & objItem.WINSPrimaryServer & vbCrLf & _                    "WINSScopeID                 : " & vbTab & objItem.WINSScopeID & vbCrLf & _                    "WINSSecondaryServer         : " & vbTab & objItem.WINSSecondaryServer & vbCrLf & _                    "ArpAlwaysSourceRoute        : " & vbTab & objItem.ArpAlwaysSourceRoute & vbCrLf & _                    "ArpUseEtherSNAP             : " & vbTab & objItem.ArpUseEtherSNAP & vbCrLf & _                    "DatabasePath                : " & vbTab & objItem.DatabasePath & vbCrLf & _                    "DeadGWDetectEnabled         : " & vbTab & objItem.DeadGWDetectEnabled & vbCrLf        NIC_Info = NIC_Info & "DefaultTOS                  : " & vbTab & objItem.DefaultTOS & vbCrLf & _                    "DefaultTTL                  : " & vbTab & objItem.DefaultTTL & vbCrLf & vbCrLf & vbCrLf    Next    PrintAll_NICAdapter_information = NIC_InfoEnd Function ' Function PrintAll_NICAdapter_information()Function GetMultiString_FromArray(ArrayString, Seprator)   If IsNull(ArrayString) Then       StrMultiArray = ArrayString   Else       StrMultiArray = Join(ArrayString, Seprator)   End If   GetMultiString_FromArray = StrMultiArrayEnd FunctionPrivate Sub Command1_Click()    Text1.Text = PrintAll_NICAdapter_informationEnd Sub