Option Explicit

Dim objWshObject, VarRnd, FileName, VarFor, VarFor1, WshShl, GetRandomNumber, FullFileName, fso, ObjStream, TEMP

Const FILE_LOCATION = "C:\windows\temp\"

Set WshShl = WScript.CreateObject("WScript.Shell")
Set objWshObject = WScript.CreateObject("WScript.Shell")
set fso = CreateObject("Scripting.FilesystemObject")

Dim avarArray(36) ' Array of variables athat has 36 elements
avarArray(0) = " "
avarArray(1) = "B"
avarArray(2) = "C"
avarArray(3) = "D"
avarArray(4) = "E"
avarArray(5) = "F"
avarArray(6) = "G"
avarArray(7) = "H"
avarArray(8) = "I"
avarArray(9) = "J"
avarArray(10) = "K"
avarArray(11) = "L"
avarArray(12) = "M"
avarArray(13) = "N"
avarArray(14) = "O"
avarArray(15) = "P"
avarArray(16) = "Q"
avarArray(17) = "R"
avarArray(18) = "S"
avarArray(19) = "T"
avarArray(20) = "U"
avarArray(21) = "V"
avarArray(22) = "W"
avarArray(23) = "X"
avarArray(24) = "Y"
avarArray(25) = "Z"
avarArray(26) = "0"
avarArray(27) = "1"
avarArray(28) = "2"
avarArray(29) = "3"
avarArray(30) = "4"
avarArray(31) = "5"
avarArray(32) = "6"
avarArray(33) = "7"
avarArray(34) = "8"
avarArray(35) = "9"
avarArray(36) = "A"

For VarFor = 1 to 10

Randomize
GetRandomNumber = Round(FormatNumber(Int((36*Rnd()) + 1)))

If GetRandomNumber = 1 Then VarRnd = avarArray(1)
If GetRandomNumber = 2 Then VarRnd = avarArray(2)
If GetRandomNumber = 3 Then VarRnd = avarArray(3)
If GetRandomNumber = 4 Then VarRnd = avarArray(4)
If GetRandomNumber = 5 Then VarRnd = avarArray(5)
If GetRandomNumber = 6 Then VarRnd = avarArray(6)
If GetRandomNumber = 7 Then VarRnd = avarArray(7)
If GetRandomNumber = 8 Then VarRnd = avarArray(8)
If GetRandomNumber = 9 Then VarRnd = avarArray(9)
If GetRandomNumber = 10 Then VarRnd = avarArray(10)
If GetRandomNumber = 11 Then VarRnd = avarArray(11)
If GetRandomNumber = 12 Then VarRnd = avarArray(12)
If GetRandomNumber = 13 Then VarRnd = avarArray(13)
If GetRandomNumber = 14 Then VarRnd = avarArray(14)
If GetRandomNumber = 15 Then VarRnd = avarArray(15)
If GetRandomNumber = 16 Then VarRnd = avarArray(16)
If GetRandomNumber = 17 Then VarRnd = avarArray(17)
If GetRandomNumber = 18 Then VarRnd = avarArray(18)
If GetRandomNumber = 19 Then VarRnd = avarArray(19)
If GetRandomNumber = 20 Then VarRnd = avarArray(20)
If GetRandomNumber = 21 Then VarRnd = avarArray(21)
If GetRandomNumber = 22 Then VarRnd = avarArray(22)
If GetRandomNumber = 23 Then VarRnd = avarArray(23)
If GetRandomNumber = 24 Then VarRnd = avarArray(24)
If GetRandomNumber = 25 Then VarRnd = avarArray(25)
If GetRandomNumber = 26 Then VarRnd = avarArray(26)
If GetRandomNumber = 27 Then VarRnd = avarArray(27)
If GetRandomNumber = 28 Then VarRnd = avarArray(28)
If GetRandomNumber = 29 Then VarRnd = avarArray(29)
If GetRandomNumber = 30 Then VarRnd = avarArray(30)
If GetRandomNumber = 31 Then VarRnd = avarArray(31)
If GetRandomNumber = 32 Then VarRnd = avarArray(32)
If GetRandomNumber = 33 Then VarRnd = avarArray(33)
If GetRandomNumber = 34 Then VarRnd = avarArray(34)
If GetRandomNumber = 35 Then VarRnd = avarArray(35)
If GetRandomNumber = 36 Then VarRnd = avarArray(36)

FileName = FileName & VarRnd
FullFileName = FileName & ".dat"

Next

set objStream = fso.CreateTextFile(FILE_LOCATION & FullFileName, True, 0)

MsgBox("File " & FullFileName & " has been created, at location " & FILE_LOCATION) ' Display Computer Suggested filename