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
239 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

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

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

Synchronize a new Active Directory domain with an existing Office 365 tenant
This script can help you clean up your user profile database by comparing profiles to Active Directory users in a particular OU, and removing the profiles that don't match.
This tutorial will walk an individual through the process of configuring their Windows Server 2012 domain controller to synchronize its time with a trusted, external resource. Use Google, Bing, or other preferred search engine to locate trusted NTP …
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.

770 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