(cache) [VBScript] 連想配列(ハッシュ)を使用する

Dictionary オブジェクトを使用します。

Option Explicit

Dim objDic  ' Dictionaryオブジェクト

' Dictionaryオブジェクトの生成
Set objDic = CreateObject("Scripting.Dictionary")

' 値を登録
objDic.Add "str1", 10
objDic.Add "str2", 20
objDic.Add "str3", 30

' Dictionaryオブジェクトに登録されているか
If objDic.Exists("str2") Then
    ' 登録されている場合は値を表示
    MsgBox "objDic.Item(""str2"") = " & objDic.Item("str2")
End If

サンプル : vbshash.vbs