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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)