VBScript Dictionary Object vs JavaScript Object

In test automation world, always we have situations to return more than one value from a function call. For this we have some simple ways but yet always we searching for better ways. Here I am listing some ways we can 
consider.
1. Array
We have simple array concept in all languages but this not effective while retrieving values for a particular field because array is related to index. We can't know at which index which value is there. We have to implement our own methods to find them.
2. Class and Objects
This is an another effective method but the user need some information about classes and objects. You can create a class, then class variables for all fields you are going to return values. So just create an instance for this class i.e. object and assign the values for all properties associated with this object and return this object.
Here you can directly get your particular field value by passing the field name. No concept of indexes like array. So simple to access a value and assign a value.
3. Dictionary Object
This is mostly used format of returning multiple values in VBScript. This is an object which contains values in  key-value pairs format. Very simple to access, assign, remove, etc.
Here I am going to give some demo about VBScript Dictionary object.

1. Dim dic
2. Set dic = CreateObject("Scripting.Dictionary")
3. dic.Add "Name", "Shanmugavel"
4. dic.Add "Age", "26"
5. dic.Add "City", "CBE"
6. dic.Add "Height", "5.4"
8. 'To Check a particular key exists or not
9. If dic.Exists("Weight") Then
10.    msgbox "Exists"
11. Else
12.    msgbox "Not Exists"
13. End If
15. 'To loop through all keys present in dic object
16. For Each key in dic
17.    msgbox dic.Item(key)  'Here we are using property "Item" to get a key value
18. Next
20. 'To change a key name without altering the value associated to that key
21. dic.Key("Age") = "MyAge"
22. msgbox "Value for MyAge: " + dic.Item("MyAge")
23. msgbox "Check for Age Exists: " + CStr( dic.Exists("Age") )
25. 'To get count of available Key-Value pairs
26. msgbox dic.Count
28. 'To get all key names only
29. Dim KeyNames
30. KeyNames = dic.Keys   'Returns an array
31. For Each key in KeyNames
32.    msgbox key
33. Next
35. 'To get all key values only
36. Dim KeyValues
37. KeyValues = dic.Items   'Returns an array
38. For Each value in KeyValues
39.    msgbox value
40. Next
42. 'To Remove a key-Value pair
43. msgbox "Before Removing a key-Value pair, Count: " + CStr( dic.Count )
44. dic.Remove("Height")
45. msgbox "After Removing a key-Value pair, Count: " + CStr( dic.Count )
47. 'To Remove all key-Value pairs
48. dic.RemoveAll
49. msgbox "After Removing all key-Value pairs, Count: " + CStr( dic.Count )
51. 'To make key names Case-Sensitive
52. ' -- By default, VBScript considers everything as Case-Insensitive because its a Case-Insensitive scripting language.
53. ' -- We can make Case-Sensitive keys to have 2 keys with same key name i.e. One with lower case and another with upper case
54. ' -- VBBinaryCompare - 0; VBTextCompare - 1; VBDataBaseCompare - 2 (compares information inside)
55. dic.CompareMode = VBBinaryCompare  'or assign value 0
56. dic.Add "Name", "shanmugavel c"
57. dic.Add "NAME", "SHANMUGAVEL C"
58. msgbox "Name: " + dic.Item("Name")
59. msgbox "NAME: " + dic.Item("NAME")

JavaScript:
In JavaScript also we have first 2 options as in VBScript. But JavaScript have a concept called associative array or Object i.e. equivalent to Dictionary Object in VBScript. Here I am giving simple demo code.

1. var WS = new ActiveXObject("WScript.Shell");
3.   //Declaring and Assigning values with key-value pairs
4.   var obj = { Name: "ShanmugavelC", Age: "26",
5.               City: "CBE", Height: "5.4"       };
7.   //To get all key-value pairs
8.   for (key in obj)    
9.     WS.Popup("Value for " + key + ": " + obj[key]);
10.    
11.   //To add a Key-value pair
12.   obj["Weight"] = "69";
14.   //To check a key exists or not
15.   if( obj.hasOwnProperty("State") )
16.     WS.Popup("Key State Exists");
17.   else
18.     WS.Popup("Key State not Exists");
20.   //By default, JavaScript is Case-Sensitive
21.   obj["NAME"] = "SHANMUGAVEL C"
22.   WS.Popup( "Value for NAME: " + obj["NAME"] );
23.   WS.Popup( "Value for Name: " + obj["Name"] );

Hope this will give you some ideas !!!