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

http://msdn.microsoft.com/ja-jp/library/cc428203.aspx
あたりにFileSystemObject オブジェクトの説明があったので見ていく

まんま

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

WScript.Echo d.Item("a")
WScript.Echo d.Item("b")
WScript.Echo d.Item("c")