Only on Experts-Exchange: Sign-up for a free-trial and we'll send you your permanent license!
Here is what you get: 30 Nodes | Unlimited Sensors | No Time Restrictions | Absolutely FREE!
Act now. This offer ends July 14, 2017.
'get all members of group and put them in the selection box Dim arrNames() intSize = 0 dd_group.style.width = 200 useraccounts.style.width = 200 group.style.width = 200 Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") Set objGroup = GetObject("LDAP://CN=G_Group,OU=ou1,OU=ou2,OU=ou3," & strDNSDomain) For Each strUser in objGroup.Member ReDim Preserve arrNames(intSize) Next For i = (UBound(arrNames) - 1) to 0 Step -1 For j= 0 to i If UCase(arrNames(j)) > UCase(arrNames(j+1)) Then strHolder = arrNames(j+1) arrNames(j+1) = arrNames(j) arrNames(j) = strHolder End If Next Next For Each strUser in arrNames Set objOption = Document.createElement("OPTION") objOption.Text = Split(strUser, "|")(0) objOption.Value = Split(strUser, "|")(1) UserAccounts.Add(objOption) Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.