vbscript dictonary問題

Question

我在VBscript中使用dictonary。我有一些問題，我不明白的一些行爲：

Dim CmdData 
Set CmdData = CreateObject("System.Dictonary") 
CmdData.Add "11", "tttzz" 
CmdData.Add "sssid", "KRN" 
WScript.Echo(" ZZZZZZZZ= " & CmdData.Count) 'It prints zero and not 2 

Dim s 
s = CmdData.Item("11") 
alert(s) 
WScript.Echo(s) 'It prints empry box and not tttzz 

Dim a, j 
a = CmdData.Keys 
For j = 0 To CmdData.Count -1 
    WScript.Echo(" ZZZZZZZZ= " & CmdData.Count) 
    WScript.Echo(a(j)) ' doesn not print 
Next 

If (CmdData.Exists("-ad")) Then 
    'WScript.Echo (" RR ") ' It prints it although not in the dictonary 
End If 

感謝

Answer 1

VBScript的解釋是「的Scripting.Dictionary」：

>> set syd = CreateObject("System.Dictionary") 
>> syd.add "a",1 
>> 
Error Number:  429 
Error Description: ActiveX component can't create object 
>> set scd = CreateObject("Scripting.Dictionary") 
>> scd.add "a",1 
>> WScript.Echo scd.Count, scd("a") 
>> 
1 1