如何修改默认网关及DNS

    Function ChangeIP(ByVal IP As String, ByVal NM As String, ByVal GW As String, ByVal MDNS As String, ByVal SDNS As String) As String

        '返回值说明:返回一个设置的中文说明.   

        Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask

        Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS

        strComputer = "."

        objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")

        colNetAdapters = objWMIService.ExecQuery("Select   *   from   Win32_NetworkAdapterConfiguration   where   IPEnabled=TRUE")

        strIPAddress = Array(IP)   'ip地址   

        strSubnetMask = Array(NM)   '子网掩码   

        strGateway = Array(GW)   '网关   

        strDNS = Array(MDNS, SDNS)   '主DNS各备DNS   

        strGatewaymetric = Array(1)



        For Each objNetAdapter In colNetAdapters

            errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

            errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

            errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)

            If errEnable = 0 And errGateways = 0 And errDNS = 0 Then

                ChangeIP = "设置成功"

            Else

                If errEnable = 0 Then

                    ChangeIP = "IP地址和子网掩码设置成功,   "

                Else

                    ChangeIP = "IP地址或子网掩码设置失败,   "

                End If

                If errGateways = 0 Then

                    ChangeIP = ChangeIP & "默认网关设置成功,   "

                Else

                    ChangeIP = ChangeIP & "默认网关设置失败,   "

                End If

                If errDNS = 0 Then

                    ChangeIP = ChangeIP & "DNS设置成功"

                Else

                    ChangeIP = ChangeIP & "DNS设置失败"

                End If

            End If

        Next



    End Function



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox(ChangeIP("192.168.1.12", "255.255.255.0", "192.168.1.1", "201.96.112.133", "84.124.96.122"))

    End Sub

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、

    Private Function IPCheng(ByVal Name As String, ByVal IP As String, ByVal Submask As String, ByVal Gateway As String, ByVal Mdns As String, ByVal Sdns As String)

        '接口说明Name是计算机名字，IP是计算机的IP地址，Submask是子网玛，Gateway是网关，   Mdns是主DNS,Sdns是备用DNS   

        Dim objWMIService, colNetAdapters, strIPAddress, strSubnetMask

        Dim objNetAdapter, colComputers, ObjComputer

        Dim errEnable As Integer



        objWMIService = GetObject("winmgmts://./root/cimv2")

        colNetAdapters = objWMIService.ExecQuery("Select   *   from   Win32_NetworkAdapterConfiguration   where   IPEnabled=TRUE")

        For Each objNetAdapter In colNetAdapters

            errEnable = objNetAdapter.EnableStatic(Array(IP), Array(Submask))       'IP和子网   

            DoEvents()

            objNetAdapter.SetGateways(Array(Gateway), Array(1))   '网关   

            DoEvents()

            objNetAdapter.SetDNSServerSearchOrder(Array(Mdns, Sdns))     '可能要设成数组   

        Next

        objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//./root/cimv2")

        colComputers = objWMIService.ExecQuery("Select   *   from   Win32_ComputerSystem")

        For Each ObjComputer In colComputers

            ObjComputer.Rename(Name)

        Next

    End Function

    Private Sub CmdSet_Click()

        Dim ComputerName As String



        If Len(Trim(TxtNo.Text)) = 1 Then

            ComputerName = "0" + Trim(TxtNo.Text)

        Else

            ComputerName = Trim(TxtNo.Text)

        End If



        If Trim(TxtNo.Text) <> "" Then

            IPCheng("V" + ComputerName, "125.125.125." + TxtNo.Text, "255.255.255.0", "125.125.125.125", "61.128.128.67", "61.128.128.68")

            Shell(App.Path & "/client/Install.Exe", vbNormalFocus)

            SendKeys("{ENTER}", 10)

        Else

            MsgBox("修改失败，机号必须填写！", vbInformation, "失败提示")

        End If

    End Sub

    Private Sub TxtNo_KeyPress(ByVal KeyAscii As Integer)

        If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then

        Else

            If KeyAscii <> 8 Then

                If KeyAscii = 13 Then

                    Call CmdSet_Click()

                Else

                    KeyAscii = 0

                End If

            End If

        End If

    End Sub



    Sub Main()

        MsgBox(IPCheng("fenggang", "192.168.1.12", "255.255.255.0", "192.168.1.1", "201.96.112.133", "84.124.96.122"))

    End Sub