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")