how to change dns ip address

[Shankar T]

hi friends,

i want to change the ip address of dns in local computer. i found changing ip address & gateway through msdn forums with the code below...

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 = 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







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

----------------------------------------------------------------------xxx-----------------------------------------------------------------------------------------

Using Dos netsh command we can change the dns address, but i want it on vb.net

Shell("netsh interface ip set dns ""Local area connection"" static " & "192.168.1.1" & " primary")


Thanks in Advance

Continue reading...