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 = 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
本文转自hcy's workbench博客园博客,原文链接:http://www.cnblogs.com/alterhu/archive/2012/03/17/2404057.html,如需转载请自行联系原作者。