Create Multiple Groups in AD
Posted on 2006-05-04
Does someone have a script that will create multiple group objects in AD by reading the names from a text file?
I have the following script which creates 1 (one) group, how can I modify it to make it create more than one?
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
Set objOU = GetObject("LDAP://ou=SPECIFY OU HERE,dc=SPECIFY DN HERE")
Set objGroup = objOU.Create("Group", "cn=Name_Of_Group")
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or _
We are about to being a project to migrate our existing AD to our parent companies' AD (which I hate but what can you do) and I need to recreate about 150 groups from our AD in their AD. There is no trusts setup so ADMT is out of the question.