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

かなり、まんま

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
  End If
End Sub

chk_exists "c"
chk_exists "d"