Set d = CreateObject("Scripting.Dictionary") d.Add "a", "アテネ" d.Add "b", "ベオグラード" d.Add "c", "カイロ" a = d.Keys For Each x in a WScript.Echo "d(" & x & ") : " & d.Item(x) Next