VB6获取网卡信息

需要用VB6读取网卡网管信息，进行设置，所以找了一段代码，使用的是WMI的系统查询方式，循环所有网络适配器，取得信息

当然可以加判断处理下了。

 

Option Explicit  
Dim objSWbemServices As SWbemServices  
Dim objSWbemObjectSet As SWbemObjectSet  
Dim objSWbemObject As SWbemObject  
Private Type NetCard  
    Name As String 
    IPAdress As String 
    IpSubNets As String 
    IpGateWay As String 
    DnsString0 As String 
    DnsString1 As String 
    MacAdress As String 
End Type  
Dim MtNetCard() As NetCard  
Private Sub Command1_Click()  
    Dim i As Long 
    For i = LBound(MtNetCard) To UBound(MtNetCard) - 1  
        Text1 = Text1 & "网卡：    " & MtNetCard(i).Name & vbNewLine  
        Text1 = Text1 & "ip地址：  " & MtNetCard(i).IPAdress & vbNewLine  
        Text1 = Text1 & "子网掩码：" & MtNetCard(i).IpSubNets & vbNewLine  
        Text1 = Text1 & "网关：    " & MtNetCard(i).IpGateWay & vbNewLine  
        Text1 = Text1 & "DNS1：     " & MtNetCard(i).DnsString0 & vbNewLine  
        Text1 = Text1 & "DNS2：     " & MtNetCard(i).DnsString1 & vbNewLine  
        Text1 = Text1 & "MAC：     " & MtNetCard(i).MacAdress & vbNewLine  
    Next 
    Erase MtNetCard  
End Sub 
 
Private Sub Form_Load()  
    ReDim MtNetCard(0) As NetCard  
    Set objSWbemServices = GetObject("winmgmts:")  
    Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")  
    For Each objSWbemObject In objSWbemObjectSet  
        On Error Resume Next 
        MtNetCard(UBound(MtNetCard)).Name = objSWbemObject.Description   '添加本机上已经安装了TCP/IP协议的网卡  
        MtNetCard(UBound(MtNetCard)).IPAdress = objSWbemObject.IPAddress(0)  
        MtNetCard(UBound(MtNetCard)).IpSubNets = objSWbemObject.IPSubnet(0)  
        MtNetCard(UBound(MtNetCard)).IpGateWay = objSWbemObject.DefaultIPGateway(0)  
        MtNetCard(UBound(MtNetCard)).DnsString0 = objSWbemObject.DNSServerSearchOrder(0)  
        MtNetCard(UBound(MtNetCard)).DnsString1 = objSWbemObject.DNSServerSearchOrder(1)  
        MtNetCard(UBound(MtNetCard)).MacAdress = objSWbemObject.MacAddress(0)  
        ReDim Preserve MtNetCard(UBound(MtNetCard) + 1) As NetCard  
    Next 
End Sub