Dim jnkcD,jnkcNum,aKey

Set JnkcD = CreateObject("Scripting.Dictionary")

Randomize

Do Until JnkcD.Count = 10

jnkcNum = UCase(Hex(Int(60000*Rnd+5000)) & Hex(Int(60000*Rnd+5000)))

If Not JnkcD.Exists(jnkcNum) Then JnkcD.Add jnkcNum,Null

Loop

For Each aKey In JnkcD.Keys()

WScript.echo akey & "<br>"

Next

Set jnkcD = Nothing