CONFIGURAR IP VIA CODIGO

 Private Sub SetIP(ByVal IPAddress As String, ByVal SubnetMask As String, _
                      ByVal Gateway As String)

        Dim managementClass As New ManagementClass([Ô]Win32_NetworkAdapterConfiguration[Ô])
        Dim mgObjCollection As ManagementObjectCollection = managementClass.GetInstances()

        For Each mgObject As ManagementObject In mgObjCollection
            If Not CType(mgObject([Ô]IPEnabled[Ô]), Boolean) Then Continue For

            Try
                Dim objNewIP As ManagementBaseObject = Nothing
                Dim objSetIP As ManagementBaseObject = Nothing
                Dim objNewGate As ManagementBaseObject = Nothing

                objNewIP = mgObject.GetMethodParameters([Ô]EnableStatic[Ô])
                objNewGate = mgObject.GetMethodParameters([Ô]SetGateways[Ô])

                Dim tmpStrArray() As String = {Gateway}

                objNewGate([Ô]DefaultIPGateway[Ô]) = tmpStrArray
                Dim tmpIntArray() As Integer = {1}
                objNewGate([Ô]GatewayCostMetric[Ô]) = tmpIntArray

                tmpStrArray(0) = IPAddress
                objNewIP([Ô]IPAddress[Ô]) = tmpStrArray
                tmpStrArray(0) = SubnetMask
                objNewIP([Ô]SubnetMask[Ô]) = tmpStrArray

                objSetIP = mgObject.InvokeMethod([Ô]EnableStatic[Ô], objNewIP, Nothing)
                objSetIP = mgObject.InvokeMethod([Ô]SetGateways[Ô], objNewGate, Nothing)
            Catch ex As Exception
                MessageBox.Show([Ô]Erro ocorrido: [Ô] + ex.Message)
            End Try
        Next
    End Sub  

 SetIP([Ô]192.168.1.230[Ô], [Ô]255.255.255.0[Ô], [Ô]192.168.1.51[Ô]) 

        private void SetIP(string IPAddress, string SubNetMask, string Gateway)
        {
            ManagementClass managementClass = new ManagementClass([Ô]Win32_NetworkAdapterConfiguration[Ô]);
            ManagementObjectCollection mgObjCollection = managementClass.GetInstances();

            foreach (ManagementObject mgObject in mgObjCollection)
	        {
                if ((mgObject.GetPropertyValue([Ô]IPEnabled[Ô]) is Boolean) != true) continue;

                try 
	            {
		            ManagementBaseObject objNewIP;
                    ManagementBaseObject objSetIP;
                    ManagementBaseObject objNewGate;

                    objNewIP = mgObject.GetMethodParameters([Ô]EnableStatic[Ô]);
                    objNewGate = mgObject.GetMethodParameters([Ô]SetGateways[Ô]);
                    
                    string[] tmpStrArray = {Gateway};
                    objNewGate.SetPropertyValue([Ô]DefaultIPGateway[Ô], tmpStrArray);
                    int[] tmpIntArray = {1};
                    objNewGate.SetPropertyValue([Ô]GatewayCostMetric[Ô], tmpIntArray);

                    tmpStrArray[0] = IPAddress;
                    objNewIP.SetPropertyValue([Ô]IPAddress[Ô], tmpStrArray);
                    tmpStrArray[0] = SubNetMask;
                    objNewIP.SetPropertyValue([Ô]SubnetMask[Ô], tmpStrArray);

                    objSetIP = mgObject.InvokeMethod([Ô]EnableStatic[Ô], objNewIP,null);
                    objSetIP = mgObject.InvokeMethod([Ô]SetGateways[Ô], objNewGate, null);
	            }
	            catch (Exception ex)
	            {
		            MessageBox.Show([Ô]Erro ocorrido: [Ô] + ex.Message);
	            }
	        }
        }