Script ランタイム、Dictionary オブジェクト、Items メソッド

かなり、まんま

Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "アテネ"
d.Add "b", "ベオグラード"
d.Add "c", "カイロ"

a = d.Items
For i = 0 To d.Count -1
  WScript.Echo "a(" & i & ") : " & a(i)
Next