Set bands = CreateObject("Scripting.Dictionary")

bands.Add "a", "Aerosmith"
bands.Add "b", "Beatles"
bands.Add "c", "Clash"

Wscript.Echo "The value corresponding to the key 'b' is " & cars.Item("b")

arrayItems = bands.Items

for i = 0 to bands.Count -1
     Wscript.Echo  arrayItems(i)
next