<Script Language="VBS">
    Dim d                   '創建一個變量
    Set d = CreateObject("Scripting.Dictionary")
    d.Add "0", "Athens"     '添加鍵和項目
    d.Add "1", "Belgrade"
    d.Add "2", "Cairo"
    For Each I in d
       document.write(I & " = " & d.Item(I) & "<BR>")
    Next
 </Script>