{"id":67123,"date":"2006-06-13T16:13:00","date_gmt":"2006-06-13T16:13:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2006\/06\/13\/how-can-i-populate-a-list-box-with-the-cns-of-all-the-ous-in-my-domain\/"},"modified":"2006-06-13T16:13:00","modified_gmt":"2006-06-13T16:13:00","slug":"how-can-i-populate-a-list-box-with-the-cns-of-all-the-ous-in-my-domain","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-populate-a-list-box-with-the-cns-of-all-the-ous-in-my-domain\/","title":{"rendered":"How Can I Populate a List Box With the CNs of All the OUs in My Domain?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! How can I populate a list box with the CNs of all the OUs in my domain?

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

Hey, AK. That\u2019s an interesting question, AK, and we\u2019ll do our best to answer it. Of course, we should point out that the United States soccer team has just finished losing to the Czech Republic in the World Cup, and we\u2019re so broken-hearted and disconsolate that we can barely type, let alone write. Therefore, if this column is poorly-written or if it doesn\u2019t make any sense, well, you understand why.<\/P>\n\n<\/THEAD>\n\n\n
\n

Note<\/B>. OK, granted, the Scripting Guy who writes this column doesn\u2019t exactly consider himself a soccer fan; in fact, he spent the weekend watching college baseball on TV rather than the World Cup. In fact, he\u2019s just pretending<\/I> to be broken-hearted; that way he has an excuse in case this turns out to be a less-than-stellar column. (Usually he tries to blame lousy columns on his editor, but she always edits those parts out. But seeing as how she is<\/I> a soccer fan and she is<\/I> disconsolate about the U.S. loss, well, maybe he can sneak this past her.)<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n

<\/DIV>\n

At any rate, under the most trying of circumstances (like we said, AK, surely you – and our editor – understand), here\u2019s what we came up with:<\/P>

<SCRIPT Language=”VBScript”>\n    Sub Window_onLoad\n        On Error Resume Next<\/p>\n
        Const ADS_SCOPE_SUBTREE = 2<\/p>\n
        Set objConnection = CreateObject(“ADODB.Connection”)\n        Set objCommand =   CreateObject(“ADODB.Command”)\n        objConnection.Provider = “ADsDSOObject”\n        objConnection.Open “Active Directory Provider”\n        Set objCommand.ActiveConnection = objConnection<\/p>\n
        objCommand.Properties(“Page Size”) = 1000\n        objCommand.Properties(“Searchscope”) = ADS_SCOPE_SUBTREE <\/p>\n
        objCommand.CommandText = _\n            “SELECT Name, ADsPath FROM ‘LDAP:\/\/dc=fabrikam,dc=com'” & _\n                ” WHERE objectCategory=’organizationalUnit’ ORDER BY Name”  \n        Set objRecordSet = objCommand.Execute<\/p>\n
        objRecordSet.MoveFirst\n        Do Until objRecordSet.EOF\n            Set objOption = Document.createElement(“OPTION”)\n            objOption.Text = objRecordSet.Fields(“Name”).Value\n            objOption.Value = objRecordSet.Fields(“ADsPath”).Value\n            AvailableOUs.Add(objOption)\n            objRecordSet.MoveNext\n        Loop\n    End Sub<\/p>\n
    Sub ShowOUPath\n        Msgbox AvailableOUs.Value\n    End Sub\n<\/SCRIPT><\/p>\n
<body>\n    <select size=”10″ name=”AvailableOUs” style=”width:300″><\/select><p>\n    <input id=runbutton type=”button” value=”Show OU Path” onClick=”ShowOUPath”>\n<\/body>\n<\/PRE>\n
This is a bit longer than most of the scripts you see in this column, so let\u2019s take care of the easy things first. To begin with, the body of the HTA consists of just two items, a list box named AvailableOUs and a button with the label Show OU Path<\/B>:<\/P>
<select size=”10″ name=”AvailableOUs” style=”width:300″><\/select><p>\n<input id=runbutton type=”button” value=”Show OU Path” onClick=”ShowOUPath”>\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. If you aren\u2019t familiar with HTAs, well, too bad!<\/P>\n
Um, we mean, check out the HTA Developers Center<\/B><\/A> here in the Script Center. Sorry; you know, what with the U.S. losing and everything, well, we\u2019re just not ourselves today.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
Both of these controls are pretty rudimentary. The button has been configured to run a subroutine named ShowOUPath any time said button gets clicked. Meanwhile, we don\u2019t do much with the list box other than configure it to show 10 items at a time (size=”10″<\/B>) and to be 300 pixels wide (style=”width:300″<\/B>). As you can see, we didn\u2019t even specify any items to appear in this list box. That\u2019s by design: after all, we want to dynamically populate the list box with the names of the OUs in our domain.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. Yes, you did<\/I> say you wanted to populate the list box with the CNs<\/I> of all your OUs. We decided to go with Name simply because the CN is an optional attribute and won\u2019t necessarily be configured for all your OUs. However, we\u2019ll show you how to modify the code to use the CN if you so desire.<\/P>\n
No, we\u2019re not doing this because of the World Cup. We\u2019re always<\/I> nice like that!<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
As for the subroutine ShowOUPath, all we do there is echo back the ADsPath for the OU selected in the list box (as you\u2019ll see, the corresponding ADsPath is assigned as the value for each OU in the list box):<\/P>
Msgbox AvailableOUs.Value\n<\/PRE>\n
That\u2019s not particularly exciting, but it is<\/I> useful: after all, if you know the ADsPath then you can bind directly to the OU in Active Directory. <\/P>\n
That leaves us with the two most important aspects of this code: retrieving the list of OUs from Active Directory, and dynamically adding those OUs to a list box. We\u2019ve included both of these tasks within a single subroutine named Window_onLoad. As you probably know, any time an HTA or Web page includes a subroutine named Winodw_onLoad, that subroutine is automatically invoked any time the HTA\/page is loaded or refreshed. By placing these two tasks in Window_onLoad we ensure that each time we start the HTA we\u2019ll conduct an Active Directory search and load an up-to-date set of OU names into the list box.<\/P>\n
As we noted, to retrieve the list of OUs we do an Active Directory search; that\u2019s what this big block of code is all about:<\/P>
Const ADS_SCOPE_SUBTREE = 2<\/p>\n
Set objConnection = CreateObject(“ADODB.Connection”)\nSet objCommand =   CreateObject(“ADODB.Command”)\nobjConnection.Provider = “ADsDSOObject”\nobjConnection.Open “Active Directory Provider”\nSet objCommand.ActiveConnection = objConnection<\/p>\n
objCommand.Properties(“Page Size”) = 1000\nobjCommand.Properties(“Searchscope”) = ADS_SCOPE_SUBTREE <\/p>\n
objCommand.CommandText = _\n    “SELECT Name, ADsPath FROM ‘LDAP:\/\/dc=fabrikam,dc=com'” & _\n        ” WHERE objectCategory=’organizationalUnit’ ORDER BY Name”  \nSet objRecordSet = objCommand.Execute<\/p>\n
objRecordSet.MoveFirst\n<\/PRE>\n
Incidentally, we won\u2019t be able to discuss the details behind conducting an Active Directory search; that\u2019s well beyond the scope of our daily column. If you need those whys and wherefores, take a look at our two-part Tales from the Script<\/I> series Dude, Where\u2019s My Printer?<\/B><\/A><\/P>\n
Instead, the only thing we\u2019ll make particular note of is the query we use to retrieve our information: <\/P>
objCommand.CommandText = _\n    “SELECT Name, ADsPath FROM ‘LDAP:\/\/dc=fabrikam,dc=com'” & _\n        ” WHERE objectCategory=’organizationalUnit’ ORDER BY Name”\n<\/PRE>\n
All we\u2019re doing here is asking for the Name<\/B> and the ADsPath<\/B> of all the objects in the fabrikam.com domain that have an objectCategory<\/B> equal to organizationalUnit<\/I>. It probably goes without saying that any object with an objectCategory equal to organizationalUnit will be an OU. Oh: and because a list like this is much easier to deal with when the items are presented in alphabetical order, we\u2019ve tacked on this clause to sort the returned data by name: ORDER BY Name<\/B>.<\/P>\n
Good point: suppose you do<\/I> want to return the CN rather than the Name. That\u2019s fine; just replace any reference to the Name attribute with the CN attribute instead:<\/P>
objCommand.CommandText = _\n    “SELECT CN, ADsPath FROM ‘LDAP:\/\/dc=fabrikam,dc=com'” & _\n        ” WHERE objectCategory=’organizationalUnit’ ORDER BY CN”\n<\/PRE>\n
And now – at long last – we get to the heart of the matter: adding the OUs to the list box. After we call the Execute<\/B> method and run our query against Active Directory we get back a recordset consisting of the Name and ADsPath of each OU in the domain. To add these OUs to the list box we use the following block of code:<\/P>
Do Until objRecordSet.EOF\n    Set objOption = Document.createElement(“OPTION”)\n    objOption.Text = objRecordSet.Fields(“Name”).Value\n    objOption.Value = objRecordSet.Fields(“ADsPath”).Value\n    AvailableOUs.Add(objOption)\n    objRecordSet.MoveNext\nLoop\n<\/PRE>\n
What\u2019s going on here? Well, to begin with, we set up a Do Until loop that which runs until we reach the end of the recordset (objRecordset.EOF<\/B>). Inside that loop we use the createElement<\/B> method to create a \u201cblank\u201d list box item. For this new list box item we set the Text<\/B> property to the OU Name and the Value<\/B> property to the OU ADsPath:<\/P>
objOption.Text = objRecordSet.Fields(“Name”).Value\nobjOption.Value = objRecordSet.Fields(“ADsPath”).Value\n<\/PRE>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. If you\u2019ve decided to use the CN rather than the name, just change the code accordingly: objRecordSet.Fields(“CN<\/B>“).Value.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
If you aren\u2019t familiar with HTML, the Text property is simply the text that appears in the list box; the Value property is, well, a value associated with the item. Although the Text and the Value can be identical, they don\u2019t have to be. We chose to use the Name for the Text property because that gives us nice, easy-to-read names like this:<\/P>\n\n\n\n\n\n\n\n
\u2022<\/TD>\n\n
Administration<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
Finance<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
Human Resources<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
Research<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
Sales<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
We then use the ADsPath as the Value; that makes it easy for someone to choose an OU, click a button, and then bind to the selected OU. The ADsPaths will look something like this:<\/P>\n\n\n\n\n\n\n\n
\u2022<\/TD>\n\n
LDAP:\/\/ou=Administration,dc=fabrikam,dc=com<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
LDAP:\/\/ou=Finance,dc=fabrikam,dc=com<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
LDAP:\/\/ou=Human Resources,dc=fabrikam,dc=com<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
LDAP:\/\/ou=Research,dc=fabrikam,dc=com<\/P><\/TD><\/TR>\n
\u2022<\/TD>\n\n
LDAP:\/\/ou=Sales,dc=fabrikam,dc=com<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
As you can see, the ADsPath – while important to have – doesn\u2019t make for very good labels within the list box. That\u2019s<\/I> why we use the Name as the text that appears in the list box.<\/P>\n
After assigning values to the Text and Value properties we then call the Add<\/B> method to add the new item to the list box:<\/P>
AvailableOUs.Add(objOption)\n<\/PRE>\n
Believe it or not, that\u2019s all we have to do. We call the MoveNext<\/B> method to move to the next item in the recordset and then repeat the process, adding the second OU to the list box. This continues until we\u2019ve reached the end of the recordset and – not coincidentally – added all the OUs to the list box. <\/P>\n
And now we really should<\/I> get to work on our next column. Of course, that\u2019s not going to be easy, knowing that the U.S. likely needs to beat Ghana and<\/I> Italy in order to advance. But, hey, the show must go on, right? Seeing as how it\u2019s annual review time, we hope our manager will appreciate how we soldier on even though we\u2019ve been emotionally devastated. <\/P>\n
No check that: the emotional devastation usually comes after<\/I> we\u2019ve had our review.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! How can I populate a list box with the CNs of all the OUs in my domain?— AK Hey, AK. That\u2019s an interesting question, AK, and we\u2019ll do our best to answer it. Of course, we should point out that the United States soccer team has just finished losing to the Czech […]<\/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":[7,19,3,4,30],"class_list":["post-67123","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-active-directory","tag-activex-data-objects-ado","tag-scripting-guy","tag-scripting-techniques","tag-web-pages-and-htas"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I populate a list box with the CNs of all the OUs in my domain?— AK Hey, AK. That\u2019s an interesting question, AK, and we\u2019ll do our best to answer it. Of course, we should point out that the United States soccer team has just finished losing to the Czech […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67123","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=67123"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/67123\/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=67123"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=67123"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=67123"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}