Option Explicit
'2015 04 15 version

Dim odjDictionary, varMesCles, varCompteur, varUneCle, varUneValeur 'Pour un dictionnaire qui va contenir la liste des adresses MAC
set odjDictionary = CreateObject("Scripting.Dictionary") 'Création du dictionnaire
	

Wscript.echo "Ajout d'éléments au dictionnaire"

odjDictionary.Add "Key1", "Item1"
odjDictionary.Add "Key2", "Item2"
odjDictionary.Add "Key3", "Item3"

varUneCle = "Key4"
varUneValeur = "Item4"

'On va ajouter une clé et une valeur associée uniquement si la clé n'existe pas déjà
if odjDictionary.Exists(varUneCle) then
	'Do Nothing
else
	odjDictionary.Add varUneCle, varUneValeur
end if	

'Affichage du contenu du dictionnaire
Wscript.Echo "Affichage du contenu du dictionnaire"
varMesCles=odjDictionary.keys 'Récupération des clés du dictionnaire
For varCompteur=0 To ubound(varMesCles) 'Pour toutes les clés du dictionnaire
	Wscript.echo (varMesCles(varCompteur)) & " : " & odjDictionary.item(varMesCles(varCompteur)) 'On affiche dans un premier temps la clé puis juste à côté la valeur associée
Next
Wscript.Echo ""

set odjDictionary = Nothing