Option explicit : Dim file, curLine, curIndex, _
                      varPreffix, varName, varValue
 
' Defino un prefijo para el nombre de las variabes dinámicas.
varPreffix = "var"
 
' Instancio el Stream del objeto que lee el archivo de texto.
Set file = CreateObject("Scripting.FileSystemObject"). _
                        OpenTextFile("Archivo.txt", 1)
 
' Itero las lineas del archivo.
Do Until file.AtEndOfStream
 
    curIndex = (curIndex + 1)
    curLine  = file.Readline
 
    ' varName  = Trim(Mid(curLine, 1, InStr(curLine, "=") - 1))
    varValue = Trim(Mid(curLine,    InStr(curLine, "=") + 1))
 
    ' Creo la variable dinamicamente.
    ExecuteGlobal varPreffix & curIndex & "=" & """" & varValue & """"
 
    ' Muestro el nombre de la variable y el valor.
    Execute "WSCript.Echo varPreffix & curIndex & ""="" & " & varPreffix & curIndex
 
    ' En resumen, para acceder mediante un índice:
    ' ExecuteGlobal "WScript.Echo " & varPreffix & curIndex
 
Loop
 
' Cierro el Stream.
file.Close()
 
WScript.Quit(0)

Cscript.exe /NoLogo "Archivo.vbs"

var1=espanha
var2=madrid
var3=win7
var4=ie9
var5=11

Dim lvItems As New List(Of ListViewDataItem)
 
For Each p As Process In Process.GetProcesses()
 
    Using lvItem As New ListViewDataItem
 
        With lvItem
            .Item(0) = p.Id
            .Item(1) = p.ProcessName
        End With
 
        lvItems.Add(lvItem)
 
    End Using
 
Next p
 
With Me.RadListView1
    .Columns.Add("PID")
    .Columns.Add("Process Name")
    .ViewType = ListViewType.DetailsView
 
    .Items.AddRange(lvItems.ToArray)
End With

    Public Shared Function GetDefaultGateway() As IPAddress
        Dim card As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces().FirstOrDefault()
        If card Is Nothing Then
            Return Nothing
        End If
        Dim address As GatewayIPAddressInformation = card.GetIPProperties().GatewayAddresses.FirstOrDefault()
        Return address.Address
    End Function

public static IPAddress GetDefaultGateway()
{
    var card = NetworkInterface.GetAllNetworkInterfaces().FirstOrDefault();
    if(card == null) return null;
    var address = card.GetIPProperties().GatewayAddresses.FirstOrDefault();
    return address.Address;
}

> ipconfig

Configuración IP de Windows

Adaptador de Ethernet Ethernet 2:

   Sufijo DNS específico para la conexión. . : x
   Vínculo: dirección IPv6 local. . . : x
   Dirección IPv4. . . . . . . . . . . . . . : x
   Máscara de subred . . . . . . . . . . . . : x
   Puerta de enlace predeterminada . . . . . : 192.168.0.1

Dim WB as new WebBrowser

Dim wb as new WebBrowser

Me.Controls.Add(wb)

Dim wb as new WebBrowser
' wb.ScriptErrorsSuppressed = False
wb.Navigate("http://submanga.com/")

        Using sr As New StreamReader(HttpWebRequest.Create("http://foro.elhacker.net/").GetResponse().GetResponseStream)
 
            Using sw As New StreamWriter("C:\source.html", append:=False)
 
                sw.Write(sr.ReadToEnd)
 
            End Using
 
        End Using