01
Set
dict = CreateObject(
"Scripting.Dictionary"
)
02
dict.Add
"1"
,
"One"
03
"2"
"Two"
04
"3"
"Three"
05
06
For
Each
key
In
dict
07
08
WScript.Echo key &
" --> "
& dict.Item(key)
09
10
Next
1 --> One 2 --> Two 3 --> Three