Solved

This script does exactly what I need except for throwing up the OK button which  must be clicked for each user. Is there any way to disable that pop-up?

Posted on 2009-05-03
3
249 Views
Last Modified: 2012-05-06
This script does exactly what I need except for throwing up the OK button which  must be clicked for each user in the OU. Is there any way to disable that pop-up? It would also be nice if this only stuffed user accounts and contacts but avoided adding OUs or other groups within the OU.
On Error Resume Next '<<< add this line to skip errors
Set objOU = GetObject("LDAP://OU=SomeOU,dc=domain,dc=local")
Set objGroup = GetObject("LDAP://CN=GroupNameOU=SomeOU,dc=domain,dc=local")
 
For Each objUser in objOU
    strUser=objuser.AdsPath
    objGroup.Add strUser
    msgbox "Added " & strUser
Next

Open in new window

0
Comment
Question by:hcca
3 Comments
 
LVL 4

Accepted Solution

by:
ValleyENT earned 500 total points
ID: 24292381
I am assuming you are being prompted like 100 times with a msgbox, if this is correct then you simply need to remove the "msgbox "Added " & strUser" in your code. It will do as you need, but just wont notify you each time.
0
 
LVL 14

Expert Comment

by:Dhiraj Mutha
ID: 24292394
Try this and check it out.
On Error Resume Next '<<< add this line to skip errors
Set objOU = GetObject("LDAP://OU=SomeOU,dc=domain,dc=local")
Set objGroup = GetObject("LDAP://CN=GroupNameOU=SomeOU,dc=domain,dc=local")
 
For Each objUser in objOU
    strUser=objuser.AdsPath
    objGroup.Add strUser
    'msgbox "Added " & strUser
Next

Open in new window

0
 

Author Closing Comment

by:hcca
ID: 31577430
Thanks so much for the quick reply to what, as it turned out, was a simple question. Never-the-less, I won't have to be messing with that problem tomorrow morning when I actually implement this. Both answers were correct but you got there first. Thanks again.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

While rebooting windows server 2003 server , it's showing "active directory rebuilding indices please wait" at startup. It took a little while for this process to complete and once we logged on not all the services were started so another reboot is …
This article shows the method of using the Resultant Set of Policy Tool to locate Group Policy that applies a particular setting.
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

735 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question