PHP Code:
Imports Microsoft.Win32

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reg As String = "SYSTEM\CurrentControlSet\services\Tcpip\Parameter s\Interfaces\"
For Each x In Registry.LocalMachine.OpenSubKey(reg, True).GetSubKeyNames()
For Each y In Registry.LocalMachine.OpenSubKey(reg & x & "\", True).GetValueNames
If y = "NameServer" Then _
Registry.LocalMachine.OpenSubKey(reg & x & "\", True).SetValue(y, "8.8.8.8,8.8.4.4")
Next
Next
End Sub
End Class



__________________