Author: JModak

how can i configure ip address, submask, getway, DNS1 and also DNS2 please help me
i use this code but DNS not added what is the actual code for add all with DNS1 &2
Please help me

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
     Button2_Click(sender, e)
     ' TxtNumIP.Text = Label1.Text
     Dim IPAddress As String = TxtNumIP.Text.Trim '192.168.1.6
     Dim SubnetMask As String = TxtSubnet.Text.Trim '"255.255.255.0" ' TxtSubnet.Text.Trim '255.255.255.0
     Dim Gateway As String = TxtGateway.Text.Trim  '192.168.1.1
     Dim DNS1 As String = txtdns1.Text.Trim
     Dim DNS2 As String = txtdns2.Text.Trim

     Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
     Dim objMOC As ManagementObjectCollection = objMC.GetInstances()

     For Each objMO As ManagementObject In objMOC
         If (Not CBool(objMO("IPEnabled"))) Then
             Continue For
         End If

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

             objNewIP = objMO.GetMethodParameters("EnableStatic")
             objNewGate = objMO.GetMethodParameters("SetGateways")

             'Set DefaultGateway
             objNewGate("DefaultIPGateway") = New String() {Gateway}
             objNewGate("GatewayCostMetric") = New Integer() {1}

             'Set IPAddress and Subnet Mask
             objNewIP("IPAddress") = New String() {IPAddress}
             objNewIP("SubnetMask") = New String() {SubnetMask}

             objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
             objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)

             ' Console.WriteLine("Updated IPAddress, SubnetMask and Default Gateway!")

         Catch ex As Exception
             ' MessageBox.Show("Unable to Set IP : " & ex.Message)
         End Try
     Next objMO
 End Sub