$objDict = CreateObject("Scripting.Dictionary")
DictionarySetValue($objDict,"item1","value1")
DictionarySetValue($objDict,"item2","value2")
DictionarySetValue($objDict,"item3","value3")
 

? "Amount of Items: " + $objDict.Count
? "Value of Item1: " + $objDict.item("item1")
 

;Enumeration of Items and Value's 
For Each $objItem in $objDict
  ? "Item: " + $objItem " contains value: " + $objDict.item($objItem)
Next
 

DictionarySetValue($objDict,"item2","value ANYTHING")
? "Value of Item2: " + $objDict.item("item2")
 

;Enumeration of Items and Value's 
For Each $objItem in $objDict
  ? "Item: " + $objItem " contains value: " + $objDict.item($objItem)
Next

function DictionarySetValue($DictionaryObject, $key, $value)
  dim $sc
  if vartypename($DictionaryObject) <> "Object"
    exit 13
  endif
  if vartypename($key) = "Empty"
    exit 13
  endif
  if $DictionaryObject.Exists($key)
    $sc = CreateObject("ScriptControl")
    $sc.language = "VBScript"
    $sc.addobject('dict',$DictionaryObject)
    $sc.addcode('dict.Item("' + $key + '")="' + $value + '"')
    $sc.run
    $DictionaryObject=$sc.codeobject.dict		
  else
    $DictionaryObject.Add($key, $value)
  endif
endfunction