VBS生成随机的16进制的密码

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