Sub WriteTextFile(ArrayCollection, FilePath, Delimiter)
 
    Set ObjTxt = CreateObject("Scripting.FileSystemObject"). _
                 OpenTextFile(FilePath, 2, True)
 
    For Each arr In ArrayCollection
 
        ObjTxt.Writeline(Join(arr, Delimiter))
 
    Next
 
   ObjTxt.Close
 
End Sub

WriteTextFile Combos, ".\Combos.txt", ";"

3;0;5;6;4;9;7;2;8;1
1;7;6;8;5;0;9;2;3;4
3;0;2;4;7;1;8;6;5;9
1;2;5;9;6;8;3;7;4;0
4;2;1;6;5;3;0;8;9;7
0;3;4;6;7;2;8;9;5;1
0;1;4;5;3;9;7;6;2;8
1;3;5;0;2;7;9;4;6;8
4;9;6;0;3;2;7;8;1;5
4;8;6;5;7;9;0;3;1;2
etc...

' El máximo número de combinaciones posibles con un rango de '0-9' y sin repetición son '3.628.800',
' Fuente: www.mathsisfun.com/combinatorics/combinations-permutations-calculator.html
'
' Pero ese colosal valor disminuiría el rendimiento del código,
' y no creo que un jugador pueda llegar a hacer más de '1.000' partidas por sesión.
Dim Combos(999)
 
' Un Array con los valores que permutar.
CharSet = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
 
' Llamo al método principal.
Main()
 
' El método principal.
Sub Main
 
    On Error Resume Next
 
    ' Lleno el Array con combos.
    Call FillWithCombos(Combos, CharSet, 0, False)
 
    ' Escribo las combinaciones generadas del Array, en un archivo de texto.
    Call WriteTextFile(Combos, ".\Combos.txt", ";")
 
    ' Si hubo algún error...
    If Err.Number <> 0 Then
        ' Envio el código de error a la consola, 
        ' el cual puedes procesar checkando la variable dinámica %ERRORLEVEL%.
        WScript.Echo "ExitCode: " & Err.Number & vbNewLine & _
                     "Source: " & Err.Source & vbNewLine & _
                     "Description: " &  Err.Description
        WScript.Quit(Err.Number)
 
    Else ' Si no hubo ningún error...
        ' Envio un código de salida satisfactorio a la consola, 
        ' el cual puedes procesar checkando la variable dinámica %ERRORLEVEL%.
        WScript.Quit(0)
 
    End If
 
End Sub
 
' Función que desordena los elementos de un array.
Randomize
Function RandomizeArray(ByVal arr)
 
   tmpArray   = arr
   firstIndex = LBound(tmpArray)
   itemCount  = (UBound(tmpArray) - LBound(tmpArray)) + 1
 
   For index = UBound(tmpArray) To (LBound(tmpArray) + 1) Step -1
 
       ' evaluate a random index from LBound to INDEX
       newIndex = (firstIndex + Int(Rnd * itemCount))
 
       ' swap the two items
       tmpValue           = tmpArray(index)
       tmpArray(index)    = tmpArray(newIndex)
       tmpArray(newIndex) = tmpValue
 
       ' prepare for next iteration
       itemCount = itemCount - 1
 
   Next
 
   RandomizeArray = tmpArray
 
End Function
 
' Método que rellena un Array con combinaciones elatorias, 
' sin repetición de combinaciones.
Sub FillWithCombos(Byref Arr, _
                   Byval Values, _
                   Byval StartIndex, _
                   Byval AllowDuplicates)
 
    ' Recorro los elementos del Array para llenarlos.
    For X = StartIndex To (UBound(Arr))
 
       ' Un flag Booleano que determina si una combinación está repetida en el Array.
       IsRepeated = False
 
       ' Gerero la siguiente combinación aleatoria.
       Combo = RandomizeArray(Values)
 
 
       ' Si no está permitido añadir combinaciones duplicadas...
        If Not AllowDuplicates Then
 
           ' Si el primer elemento del Array no está vacio...
           If Not IsEmpty(Arr(0)) Then
 
              ' Determino si ya existe la combinación generada en el Array.
              For Y = 0 To (X - 1)
 
                  If Join(Arr(Y), "") = Join(Combo, "") Then
                     IsRepeated = True
                     Exit For
                  End If
 
              Next 'Y
 
           End If 'IsEmpty(Arr(0))
 
           ' Si la combinación no está repetida...
           If Not IsRepeated Then
              ' Añado la combinación al Array de combinaciones.
              Arr(X) = Combo
 
            ' Si la combinación está repetida...
            Elseif IsRepeated Then
              call FillWithCombos(Combos, Values, X, AllowDuplicates)
 
            End If 'Not IsRepeated
 
        Else ' Si está permitido añadir combinaciones duplicadas...
            ' Añado la combinación al Array de combinaciones.
            Arr(X) = Combo
 
        End If ' Not AllowDuplicates
 
    Next 'X
 
End Sub
 
' Método que escribe los Arrays de un Array, en un archivo de texto.
Sub WriteTextFile(ByVal ArrayCollection, _
                  ByVal FilePath, _
                  ByVal Delimiter)
 
    Set ObjTxt = CreateObject("Scripting.FileSystemObject"). _
                 OpenTextFile(FilePath, 2, True)
 
    For Each arr In ArrayCollection
        ObjTxt.Writeline(Join(arr, Delimiter))
    Next
 
   ObjTxt.Close
 
End Sub

@Echo OFF
 
(
 
	Echo Dim Combos^(999^)
	Echo CharSet = Array^(0, 1, 2, 3, 4, 5, 6, 7, 8, 9^)
	Echo Main()
	Echo Sub Main
	Echo     Call FillWithCombos^(Combos, CharSet, 0, False^)
	Echo     Call WriteTextFile^(Combos, ".\Combos.txt", ";"^)
	Echo     WScript.Quit^(0^)
	Echo End Sub
	Echo etc...
	Echo etc...
	Echo etc...
 
)>"%TEMP%\Script.vbs"
 
CScript.exe /NoLogo "%TEMP%\Script.vbs"
If %ErrorLevel% EQU 0 (
  Echo Todo OK.
  REM Procesar las combinaciones del archivo de texto resultante...
)

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
 
For Each os in oss
    Wscript.Echo "Caption: " & os.Caption
    Wscript.Echo "Version: " & os.Version
Next

If Left(os.Version, 2) = "5.1" Then ... 

     Dim _serialPort As New SerialPort()
 
     With _serialPort
 
	    .PortName = "COM2"
	    .BaudRate = 9600I
	    .Parity = Parity.None
	    .DataBits = 8I
	    .StopBits = StopBits.One
	    .Handshake = Handshake.None
 
	    .ReadTimeout = 500I
	    .WriteTimeout = 500I
 
     End With
 
    _serialPort.Open()

Option Explicit 
 
dim oEncoder, oFilesToEncode, file, sDest 
dim sFileOut, oFile, oEncFile, oFSO, i 
dim oStream, sSourceFile 
 
set oFilesToEncode = WScript.Arguments 
set oEncoder = CreateObject("Scripting.Encoder") 
For i = 0 to oFilesToEncode.Count - 1 
    set oFSO = CreateObject("Scripting.FileSystemObject") 
    file = oFilesToEncode(i) 
    set oFile = oFSO.GetFile(file) 
    Set oStream = oFile.OpenAsTextStream(1) 
    sSourceFile=oStream.ReadAll 
    oStream.Close 
    sDest = oEncoder.EncodeScriptFile(".vbs",sSourceFile,0,"") 
    sFileOut = Left(file, Len(file) - 3) & "vbe" 
    Set oEncFile = oFSO.CreateTextFile(sFileOut) 
    oEncFile.Write sDest 
    oEncFile.Close 
Next 

WScript.exe "Crypter.vbs" "ToEncrypt.vbs"

CreateObject("Scripting.FileSystemObject").OpenTextFile(HostsFile, 2, True)

Const HostsFile  = "C:\Windows\System32\Drivers\etc\Hosts"
Set objHosts     = CreateObject("Scripting.FileSystemObject"). _
                   OpenTextFile(HostsFile, 2, True)
 
With objHosts
 
    .Writeline(vbNewLine)
    .Writeline("127.0.0.1" & vbtab & "www.1.com")
    .Writeline("127.0.0.2" & vbtab & "www.2.com")
    .Writeline("127.0.0.3" & vbtab & "www.3.com")
 
    .Close
 
End With

Randomize
 
' El máximo número de combinaciones posibles con un rango de '0-9' y sin repetición son '3.628.800',
' Fuente: www.mathsisfun.com/combinatorics/combinations-permutations-calculator.html
'
' Pero ese colosal valor disminuiría el rendimiento del código, 
' y no creo que un jugador pueda llegar a hacer más de '1.000' partidas por sesión.
Dim Combos(1000)
 
' Un Array con los valores que permutar.
Values = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
 
' Gerero y asigno la primera combinación aleatoria.
Combos(0) = RandomizeArray(Values)
 
' Genero el resto de combos.
DoCombos()
' Escribir los combos en un archivo de texto
' O enviarlos a la salida de la consola para procesarlos con un For en Batch.
' Como se prefiera.
WScript.Echo("Fin")
 
Sub DoCombos()
 
	' Recorro los espacios vaciós del Array para llenarlos.
	For X = 0 To (UBound(Combos) - 1)
 
		IsRepeated = False
 
	    ' Gerero la siguiente combinación aleatoria.
	    Combo = RandomizeArray(Values)
 
	    ' Compruebo que la combinación no existe en el Array de combos.
	    For Y = 0 To (X)
 
	    	On Error Resume Next
 
	        If Join(Combos(Y), "") = Join(Combo, "") Then
	           IsRepeated = True
	           Exit For
	        End If
 
	    Next
 
	    ' Añado la combinación al Araay de combinaciones.
	    If Not IsRepeated Then
	       Combos(X + 1) = Combo
	    End If
 
	Next
 
End Sub
 
' Función que desordena los elementos de un array.
Function RandomizeArray(arr)
 
    tmpArray   = arr
    firstIndex = LBound(tmpArray)
    itemCount  = (UBound(tmpArray) - LBound(tmpArray)) + 1
 
    For index = UBound(tmpArray) To (LBound(tmpArray) + 1) Step -1
 
        ' evaluate a random index from LBound to INDEX
        newIndex = (firstIndex + Int(Rnd * itemCount))
 
        ' swap the two items
        tmpValue           = tmpArray(index)
        tmpArray(index)    = tmpArray(newIndex)
        tmpArray(newIndex) = tmpValue
 
        ' prepare for next iteration
        itemCount = itemCount - 1
 
    Next
 
    RandomizeArray = tmpArray
 
End Function

Sub AddEntry(ByVal Ip, Byval Alias)
 
    Const HostsFile  = "C:\Windows\System32\Drivers\etc\Hosts"
    Set   objHosts   = CreateObject("Scripting.FileSystemObject"). _
                       OpenTextFile(HostsFile, 8, True)
 
    objHosts.Writeline(vbNewLine & Ip & vbtab & Alias)
    objHosts.Close
 
End Sub

Function GetAliases(ByVal Ip)
 
    Dim Aliases
    Const HostsFile  = "C:\Windows\System32\Drivers\etc\Hosts"
    Set   objHosts   = CreateObject("Scripting.FileSystemObject"). _
                       OpenTextFile(HostsFile, 1)
 
    Do Until objHosts.AtEndOfStream
 
        HostEntry = Split(Replace(objHosts.Readline, vbTab, " "), " ")
        HostIP    = Trim(HostEntry(0))
        HostAlias = Trim(HostEntry(1))
 
        On Error Resume Next
 
        If HostIP = Ip Then
            Aliases = Aliases & HostAlias & vbNewLine
        End If
 
    Loop
 
    objHosts.Close
 
    GetAliases = Split(Aliases, vbNewLine)
 
End Function

AddEntry("LOCALHOST", "www.test.com")
MsgBox(GetAliases("LOCALHOST")(0))