@Echo OFF
 
CHCP 1250 >NUL
FOR /F "Tokens=3,* Delims= " %%A IN ('netsh interface show interface') DO (call :Netsh "%%B")
Pause&Exit
 
:Netsh
If "%~1"=="Conexión de área local"   (
	NETSH interface ipv4 set dns  "%~1" static "69.135.1.30"   register=primary
	NETSH interface ipv4 add dns  "%~1" static "69.135.222.97" index=2
	NETSH interface ipv4 add dns  "%~1" static "69.116.1.30"   index=3
	NETSH interface ipv4 set wins "%~1" static "69.135.1.39"
	NETSH interface ipv4 add wins "%~1" static "69.116.1.30"
)
 
If "%~1"=="Conexión de área local 2" (
	Pause
)
GOTO:EOF

    Private Sub GetRandomNumbers(Byval Min as int32, Byval Max as int32)
    ' Inicializamos el generador de nº aleatorios
    Randomize()
    ' Generamos un valor aleatorio entre 50 y 100
    Dim Valor As Integer = CInt(Int((100 * Max()) + Min))
    return Valor
    End Sub

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New List(Of String)
        For x As Integer = 0 To 10 : a.Add(Get_Random_Number(1, 100)) : Next
 
        For Each f In a : MsgBox(f) : Next ' El número siempre es el mismo
 
    End Sub
 
    Public Function Get_Random_Number(ByVal min As Integer, ByVal max As Integer) As Integer
        Dim Rando As New Random
        Return Rando.Next(min, max)
    End Function
 
End Class

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Point(600, 600)
        Dim Rando As New Random
 
        ' Creo los controles y los añado al form, para este ejemplo.
        Dim Button_(10) As Button
        For num = 0 To 10 : Button_(num) = New Button : Me.Controls.Add(Button_(num)) : Next
 
        For Each Control In Me.Controls
            If Control.GetType.ToString.Contains("Button") Then ' Si el control es de tipo Button...
                Control.location = New Point(Rando.Next(1, 500), Rando.Next(1, 500)) ' Los coloco aleatóriamente
            End If
        Next
    End Sub
 
End Class

#Region " Get User Config Function "
 
    ' [ Get User Config Function ]
    '
    ' // By Elektro H@cker (Gracias a Seba123Neo)
    '
    ' Examples :
    ' 
    ' * First add a reference to "System.Configuration" in the proyect
    '
    ' MsgBox(Get_User_Config(User_Config.File))
    ' MsgBox(Get_User_Config(User_Config.Path))
 
    Enum User_Config
        File
        Path
    End Enum
 
    Private Function Get_User_Config(ByVal Setting As User_Config) As String
        Dim UserConfig As String = System.Configuration.ConfigurationManager.OpenExeConfiguration(System.Configuration.ConfigurationUserLevel.PerUserRoaming).FilePath
        Select Case Setting
            Case User_Config.File : Return UserConfig
            Case User_Config.Path : Return UserConfig.Substring(0, UserConfig.LastIndexOf("\"))
            Case Else : Return False
        End Select
    End Function
 
#End Region