VB设置网卡的IP地址

在菜单中的【工程】—【引用】下，添加“Microsoft WMI Scripting V1.1 Library”，然后在Form1窗体上添加1个Combo1、Text1(0)、Text1(1)、Text1(2)、Text1(3)和Command1、Command2，代码如下：

Option   Explicit
Dim  objSWbemServices  As  SWbemServices
Dim  objSWbemObjectSet  As  SWbemObjectSet
Dim  objSWbemObject  As  SWbemObject
' Text1(0)为IP地址、Text1(1)为子网掩码、Text1(2)为缺省网关、Text1(3)为DNS

Private   Sub  Form_Load()
     Set  objSWbemServices  =   GetObject ( " winmgmts: " )
     Set  objSWbemObjectSet  =  objSWbemServices.ExecQuery( " Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE " )
     For   Each  objSWbemObject In objSWbemObjectSet
        Combo1.AddItem objSWbemObject.Description    ' 添加本机上已经安装了TCP/IP协议的网卡
     Next
    Combo1.Text  =  Combo1.List( 0 )
    Combo1.ListIndex  =   0
End Sub

Private   Sub  Form_Unload(Cancel  As   Integer )
     Set  objSWbemServices  =   Nothing
     Set  objSWbemObjectSet  =   Nothing
     Set  objSWbemObject  =   Nothing
End Sub

' 当选择了网卡后，显示当前所选网卡的设置
Private   Sub  Combo1_Click()
     Set  objSWbemObjectSet  =  objSWbemServices.ExecQuery( " Select * From Win32_NetworkAdapterConfiguration Where Description=' "   &  Combo1.Text  &   " ' " )
     For   Each  objSWbemObject In objSWbemObjectSet
         If  objSWbemObject.DHCPEnabled  Then
            Text1( 0 ).Text  =   ""
            Text1( 1 ).Text  =   ""
            Text1( 2 ).Text  =   ""
             If   IsNull (objSWbemObject.DNSServerSearchOrder)  Then
                Text1( 3 ).Text  =   ""
             Else
                Text1( 3 ).Text  =  objSWbemObject.DNSServerSearchOrder( 0 )
             End   If
         Else
            Text1( 0 ).Text  =  objSWbemObject.IPAddress( 0 )
            Text1( 1 ).Text  =  objSWbemObject.IPSubnet( 0 )
            Text1( 2 ).Text  =  objSWbemObject.DefaultIPGateway( 0 )
            Text1( 3 ).Text  =  objSWbemObject.DNSServerSearchOrder( 0 )
         End   If
     Next
End Sub

' 设置网卡的IP地址、子网掩码、缺省网关和DNS
Private   Sub  Command1_Click()
     Set  objSWbemObjectSet  =  objSWbemServices.ExecQuery( " Select * From Win32_NetworkAdapterConfiguration Where Description=' "   &  Combo1.Text  &   " ' " )
     For   Each  objSWbemObject In objSWbemObjectSet
        objSWbemObject.EnableStatic  Array (Text1( 0 ).Text),  Array (Text1( 1 ).Text)
        objSWbemObject.SetGateways  Array (Text1( 2 ).Text)
        objSWbemObject.SetDNSServerSearchOrder  Array (Text1( 3 ).Text)
     Next
End Sub

Private   Sub  Command2_Click()
    Unload Me
End Sub