かなり、まんま Set d = CreateObject("Scripting.Dictionary") d.Add "a", "アテネ" d.Add "b", "ベオグラード" d.Add "c", "カイロ" Sub chk_exists(key) If d.Exists(key) Then WScript.Echo "Exists : " & key Else WScript.Echo "No Exists : " & key E…