VB IP change to other Adapter

[Αρης Σλ]

hello Every1 so i wanted to make a vb program that changes the ip of the computer so i searched in internet and i found this



Imports System.Management



Public Class Form1



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

Dim IPAddress As String = "192.168.0.10"

Dim SubnetMask As String = "255.255.255.0"

Dim Gateway As String = "192.168.0.1"



Dim objMC As ManagementClass = NewManagementClass("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



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



End Class


But i dont want to change the ip in local area conection (1) i want to change it in my wifi card that is wireless network connection 12 pls help thanks

Continue reading...