VB6 IP地址+网卡地址+网卡类型

Private Sub Form_Load()
  Dim strComputer As String
  Dim objWMI      As Object
  Dim colIP       As Object
  Dim IP          As Object
  Dim I           As Integer
   
  strComputer = "."
  Set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
  Set colIP = objWMI.ExecQuery _
 ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
  For Each IP In colIP
    If Not IsNull(IP.IPAddress) Then
      For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
        MsgBox "IP  地址" & IP.IPAddress(I) & Chr(10) & _
        "网卡类型" & IP.Description(I) & Chr(10) & _
        "网卡地址" & IP.Macaddress(I)
      Next
    End If
  Next
End Sub