Как программно удалять и изменять адрес основного шлюза - Visual Basic .NET - Ответ 2315615

     Dim inputIParr(47) As String
        For j As Integer = 2 To 48
            inputIParr(j - 2) = String.Format("192.168.1.{0}", j)
        Next
 
        Dim mc As New System.Management.ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()
        Dim ischanged As Boolean = False
        For Each mo As System.Management.ManagementObject In moc
            If Not mo.Properties("IPAddress").Value Is Nothing Then
                Dim s As String() = mo.Properties("IPAddress").Value
                If s.Length > 0 Then
                    For Each ss As String In s
                        If Array.IndexOf(inputIParr, ss) > -1 Then
                            Dim par As System.Management.ManagementBaseObject = mo.GetMethodParameters("SetGateways")
                            par("DefaultIPGateway") = {"192.168.0.2"}
                            par("GatewayCostMetric") = {20}
                            ischanged = True
                            Exit For
                        End If
                     Next
                  If ischanged Then Exit For
                End If
            End If
           Next