{"id":69173,"date":"2005-08-15T20:33:00","date_gmt":"2005-08-15T20:33:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2005\/08\/15\/how-can-i-dynamically-populate-a-list-box-in-an-hta\/"},"modified":"2005-08-15T20:33:00","modified_gmt":"2005-08-15T20:33:00","slug":"how-can-i-dynamically-populate-a-list-box-in-an-hta","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-dynamically-populate-a-list-box-in-an-hta\/","title":{"rendered":"How Can I Dynamically Populate a List Box in an HTA?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! In my HTA, I would like to query a computer for a list of local user accounts, then dynamically create a list box containing those accounts. How can I do that?

— BN<\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, BN. You know, if you\u2019d ever seen the Scripting Guys in \u2026 action \u2026 you\u2019d think twice about asking us a question about doing things dynamically. But as long as you stick to things like dynamic list boxes (and forego things like dynamic personalities) we might be able to help.<\/P>\n

Let\u2019s start off by showing you the complete code for an HTA that retrieves all the local user accounts and then displays those accounts in a list box, which is populated on-the-fly. To make use of this code, copy it from your browser, paste it into Notepad or another text editor, and then save it with a .hta<\/B> file extension. And if you\u2019re already lost because you have no idea what an HTA is (hint: it\u2019s short for HTML Application), then you might want to check out our HTA Developers Center<\/B><\/A>, and maybe even peruse our HTA tutorial series<\/B><\/A>.<\/P>\n

Here\u2019s the code:<\/P>

<html>\n<head>\n<title>Local Users<\/title><\/p>\n
<HTA:APPLICATION \n     ID=”objHTAHelpomatic”\n     APPLICATIONNAME=”LocalUsers”\n     SCROLL=”yes”\n     SINGLEINSTANCE=”yes”\n     WINDOWSTATE=”maximize”\n>\n<\/head><\/p>\n
<SCRIPT Language=”VBScript”><\/p>\n
    Sub Window_Onload\n        Set objNetwork = CreateObject(“Wscript.Network”)\n        strComputer = objNetwork.ComputerName\n        Set colAccounts = GetObject(“WinNT:\/\/” & strComputer & “”)\n        colAccounts.Filter = Array(“user”)<\/p>\n
        For Each objUser In colAccounts\n            Set objOption = Document.createElement(“OPTION”)\n            objOption.Text = objUser.Name\n            objOption.Value = objUser.Name\n            LocalUsers.Add(objOption)\n        Next\n    End Sub<\/p>\n
<\/SCRIPT><\/p>\n
<body>\n    <select size=”5″ name=”LocalUsers”>\n    <\/select>\n<\/body>\n<\/html>\n<\/PRE>\n
The part we care about is the Window_Onload subroutine. (Incidentally, we use this subroutine because Window_Onload automatically runs any time an HTA is started or any time the HTA window is refreshed.) Inside this subroutine we do two things: retrieve a list of all the local user accounts, and then take those user names and put them into a list box. We won\u2019t spend any time today talking about the process for retrieving local user accounts; all we\u2019ll do for now is tell you that we do that using these four lines of code:<\/P>
Set objNetwork = CreateObject(“Wscript.Network”)\nstrComputer = objNetwork.ComputerName\nSet colAccounts = GetObject(“WinNT:\/\/” & strComputer & “”)\ncolAccounts.Filter = Array(“user”)\n<\/PRE>\n
The part we will<\/I> talk about today involves taking those user accounts and adding them to the list box. Before doing that we should point out that, when we start this HTA, the list box already exists; there just aren\u2019t any items there. Admittedly, we could have been even more<\/I> dynamic and created the list box itself on-the-fly. But that was a bit more complicated than we wanted to deal with, and didn\u2019t really seem worth it anyway. In case you\u2019re wondering, here are the HTML tags that create an empty list box:<\/P>
<select size=”5″ name=”LocalUsers”>\n<\/select>\n<\/PRE>\n
And now, at last, here\u2019s the code that populates that list box with user names:<\/P>
For Each objUser In colAccounts\n    Set objOption = Document.createElement(“OPTION”)\n    objOption.Text = objUser.Name\n    objOption.Value = objUser.Name\n    LocalUsers.Add(objOption)\nNext\n<\/PRE>\n
What we do here is set up a For Each loop to cycle through the collection of user accounts. For each user account we create an instance of the HTML Option object; each Option object is equivalent to an item in the list box. That\u2019s what this line of code is for:<\/P>
Set objOption = Document.createElement(“OPTION”)\n<\/PRE>\n
We then use these two lines of code to configure the Text<\/B> and Value<\/B> properties for the item:<\/P>
objOption.Text = objUser.Name\nobjOption.Value = objUser.Name\n<\/PRE>\n
If you haven\u2019t done a lot of work with HTML, the Text is simply the text that appears in the list box. In the sample list box shown below, Option 2<\/B> is not only the user name that appears in the list box, it\u2019s also the Text of the highlighted item:<\/P>\"HTA \n

The Value, meanwhile, is the data reported to a subroutine when a given option is chosen. Text and Value for an option do not have to be identical. We made them identical in this case simply because it makes sense: you want the user name to show up in the list box, and you probably want the user name to be used in your subroutine. (For example, your subroutine likely binds to that particular account, and you\u2019ll need the user name in order to do that.) However, we could have set the Text to be the user name and the value to be, say, an employee ID number (assuming we had that information available to us). That\u2019s up to you.<\/P>\n
After configuring the Option object we add the new item to the list box like so:<\/P>
LocalUsers.Add(objOption)\n<\/PRE>\n
As you can see, all we do is refer to the list box (LocalUsers) and call the Add<\/B> method. Along the way, we pass Add a single parameter: the object reference to our Option object. That\u2019s pretty much it: we loop around, repeat the process for all the user accounts in the collection, and we\u2019re done.<\/P>\n
Yes, very<\/I> easy and requires very little coding. But what did you expect? After all, even when the Scripting Guys are being dynamic, we still try to expend as little effort as possible.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! In my HTA, I would like to query a computer for a list of local user accounts, then dynamically create a list box containing those accounts. How can I do that?— BN Hey, BN. You know, if you\u2019d ever seen the Scripting Guys in \u2026 action \u2026 you\u2019d think twice about asking […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[3,4,30],"class_list":["post-69173","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-scripting-guy","tag-scripting-techniques","tag-web-pages-and-htas"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! In my HTA, I would like to query a computer for a list of local user accounts, then dynamically create a list box containing those accounts. How can I do that?— BN Hey, BN. You know, if you\u2019d ever seen the Scripting Guys in \u2026 action \u2026 you\u2019d think twice about asking […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/69173","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=69173"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/69173\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=69173"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=69173"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=69173"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}