**HOWTO:** `Set d = CreateObject(« Scripting.Dictionary »)`

**Description**
Crée un dictionnaire clé/valeur (très pratique pour indexer des données).

**Syntax**
`Set d = CreateObject(« Scripting.Dictionary »)`

**Paramètres**
– *(aucun)*

**Retour**
Objet `Scripting.Dictionary`.

**Exemples**
« `vb
Dim d
Set d = CreateObject(« Scripting.Dictionary »)
d.Add « host », « pleasant.ch »
If d.Exists(« host ») Then WScript.Echo d.Item(« host »)
« `

**Voir aussi**
`Dictionary.Add`, `Dictionary.Exists`, `Dictionary.Keys`