Code:
If Instr(1, WScript.FullName, "CScript", vbTextCompare) = 0 Then
Dim objShell : Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd.exe /k cscript //nologo """ & WScript.ScriptFullName, 1, False
WScript.Quit
Else
Main()
End If
Dim Count : Count = 0
Private Sub Main()
Dim combos : combos = Array("1 ","2 ","3 ","4 ","5 ","6 ","7 ","8 ","9 ","10 ","11 ","12 ","13 ","14 ","15 ","16 ","17 ","18 ","19 ","20 ","21 ","22 ","23 ","24 ","25 ","26 ","27 ","28 ","29 ","30 ","31 ","32 ","33 ","34 ","35 ","36 ")
Premutation combos, 0, 2, ""
WScript.Echo vbCrlf & Count & "combinations"
End Sub
Private Sub Premutation(ArrString, Index, Max, str)
Dim i, k, NextStr
For i = 0 To UBound(ArrString)
NextStr = str + ArrString(i)
If Index <> Max Then
Dim c : c = 0
ReDim NewArray(UBound(ArrString) - 1)
For k = 0 To UBound(ArrString)
If k <> i Then
NewArray(c) = ArrString(k)
c = c + 1
End If
Next
Premutation NewArray, Index + 1, Max, NextStr
Else
WScript.Echo NextStr
Count = Count + 1
End If
Next
End Sub