{"id":1160,"date":"2009-02-19T08:30:58","date_gmt":"2009-02-19T16:30:58","guid":{"rendered":"http:\/\/www.sapien.com\/blog\/2009\/02\/19\/using-the-vbscript-dictionary\/"},"modified":"2009-02-19T08:30:58","modified_gmt":"2009-02-19T16:30:58","slug":"using-the-vbscript-dictionary","status":"publish","type":"post","link":"https:\/\/dev.sapien.com\/blog\/2009\/02\/19\/using-the-vbscript-dictionary\/","title":{"rendered":"Using the VBScript Dictionary"},"content":{"rendered":"

I don’t want you to think that it is PowerShell now and forever more. VBScript isn’t going away anytime soon and I still answer plenty of VBScript questions in the forums at ScriptingAnswers.com.<\/a> A topic that has come up several times in recent days is the Dictionary object. It is easy to use in VBScript and often comes in handy. Let me show you how.<\/p>\n

First off, what is a dictionary object? It is a special type of array, technically referred to as an associative array or more familiarly as a hash table. A dictionary “entry” consists of a unique Key<\/em> and an associated Item<\/em>. For example, a dictionary object is like a phone book with a name and an associated phone number. Seeing the object in use will help.<\/p>\n

To create a dictionary object is as simple as this:<\/p>\n

\n
\n
Set<\/span> objDict=CreateObject(\"Scripting.Dictionary\"<\/span>)<\/pre>\n<\/div>\n<\/div>\n
You will normally want to find things in the dictionary object by keys. By default the dictionary object uses a binary compare mode which has the effect of making case-sensitive comparisons. If you will want to compare keys or search for values, you need to set the comparison before you add any items.<\/p>\n
\n
\n
'default comparison is binary mode with is CaSe SenSiTive<\/span><\/pre>\n
'You can only change the CompareMode property while the Dictionary object has no keys<\/span><\/pre>\n
objDict.CompareMode=vbTextCompare<\/pre>\n<\/div>\n<\/div>\n
Now let’s add some items to it. I’m going to use ADSI to query the local SAMAccount database and add each user account as a dictionary key. The associated item will be their password age converted to days.<\/p>\n
\n
\n
Set<\/span> objNetwork=CreateObject(\"WScript.Network\"<\/span>)<\/pre>\n
strComputer=objNetwork.ComputerName<\/pre>\n
Set<\/span> objDomain=GetObject(\"WinNT:\/\/\"<\/span> & strComputer)<\/pre>\n
objDomain.Filter=Array(\"user\"<\/span>)<\/pre>\n
 <\/pre>\n
For<\/span> Each<\/span> user In<\/span> objDomain<\/pre>\n
   'Add items to the dictionary<\/span><\/pre>\n
   objDict.Add user.name,Int(user.PasswordAge\/86400)<\/pre>\n
Next<\/pre>\n<\/div>\n<\/div>\n
The Add()<\/strong> method takes a parameter for the key and one for the item. If the key already exists you will get an error as keys must be unique. When finished objDict has members. How many?<\/p>\n
\n
\n
WScript.Echo \"There are \"<\/span> & objDict.Count & \" users in the dictionary\"<\/span><\/pre>\n<\/div>\n<\/div>\n
Pretty easy! Let’s look for a specific entry.<\/p>\n
\n
\n
If<\/span> objDict.Exists(\"Administrator\"<\/span>) Then<\/span><\/pre>\n
    WScript.Echo \"Administrator Password age (days) = \"<\/span> & objDict.Item(\"Administrator\"<\/span>)<\/pre>\n
Else<\/span><\/pre>\n
    WScript.Echo \"Failed to find Administrator account.\"<\/span><\/pre>\n
End<\/span> If<\/pre>\n<\/div>\n<\/div>\n
You can use the Exists()<\/strong> method to see if a particular key exists. If so, the Item<\/strong> property will return the associated value. When I run this code I’ll get output like this:<\/p>\n
Administrator Password age (days) = 169<\/p>\n
What about enumerating all the keys? The Keys<\/strong> property returns a collection of all keys in the Dictionary so I can use a simple For Each loop to list them.<\/p>\n
\n
\n
WScript.Echo \"Local user accounts on \"<\/span> & strComputer<\/pre>\n
For<\/span> Each<\/span> key in<\/span> objDict.Keys<\/pre>\n
    WScript.Echo \" --> \"<\/span> & key<\/pre>\n
Next<\/pre>\n<\/div>\n<\/div>\n
By the way, there is no sort method.<\/p>\n
To remove an item I’ll simply call the Remove()<\/strong> method.<\/p>\n
\n
\n
'remove an item<\/span><\/pre>\n
If<\/span> objDict.Exists(\"guest\"<\/span>) Then<\/span> objDict.Remove(\"guest\"<\/span>)<\/pre>\n<\/div>\n<\/div>\n
Remember the dictionary is case sensitive by default unless you change its compare mode when you create it. Now that I’ve removed the Guest account I’ll enumerate all remaining keys and values.<\/p>\n
\n
\n
WScript.Echo \"Full report\"<\/span><\/pre>\n
WScript.Echo \"-----------\"<\/span><\/pre>\n
For<\/span> Each<\/span> key in<\/span> objDict.Keys<\/pre>\n
    'display user name, password age and date it was last changed<\/span><\/pre>\n
    WScript.Echo key & \" = \"<\/span> & objDict.Item(key) & \" days (\"<\/span> &_<\/pre>\n
    FormatDateTime(DateAdd(\"D\"<\/span>,-objDict.Item(key),Now),vbShortDate) & \")\"<\/span><\/pre>\n
Next<\/pre>\n<\/div>\n<\/div>\n
This snippet displays the dictionary key, it’s associated item and a value calculated from the password age. This will give me output like this:<\/p>\n
Full report
———–
__vmware_user__ = 1 days (2\/18\/2009)
Administrator = 169 days (9\/3\/2008)
daisy = 37 days (1\/13\/2009)
Jeff = 185 days (8\/18\/2008)
lucky = 37 days (1\/13\/2009)
MyNewUser = 134 days (10\/8\/2008) <\/p>\n
Finally, if you need to remove all items in a dictionary, perhaps because you want to reuse it, the RemoveAll() method handles this easily.<\/p>\n
\n
\n
'remove all items<\/span><\/pre>\n
objDict.RemoveAll()<\/pre>\n<\/div>\n<\/div>\n
  You can learn more about the Dictionary object and other VBScript topics in WSH and VBScript Core: TFM<\/a>. Or if you have PrimalScript<\/a> 2007 or later, the VBScript help content is essentially this book. Although if you find yourself still doing a lot of VBScript I think you’ll find having a printed reference book beneficial.<\/p>\n
 <\/p>\n<\/p>\n
\n
If you’d like to try these code snippets out yourself, download the code.<\/a><\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
I don’t want you to think that it is PowerShell now and forever more. VBScript isn’t going away anytime soon and I still answer plenty of VBScript questions in the forums at ScriptingAnswers.com. A topic that has come up several times in recent days is the Dictionary object. It is easy to use in VBScript and often comes in handy. Let me show you how.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[283,24],"tags":[454,452,453,57,996],"class_list":["post-1160","post","type-post","status-publish","format-standard","hentry","category-howto","category-vbscript","tag-associativearray","tag-dictionary","tag-hashtable","tag-scripting","tag-vbscript"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/1160","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/comments?post=1160"}],"version-history":[{"count":1,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/1160\/revisions"}],"predecessor-version":[{"id":1161,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/1160\/revisions\/1161"}],"wp:attachment":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/media?parent=1160"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/categories?post=1160"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/tags?post=1160"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}