Exchange Server Share

… Information sharing on Exchange Server …

VBScript: Copy Group Membership From One Group to Anothe

Copies the group membership from one group to another (which is not possible by any GUI Tool)
Article is also available at:
http://www.microsoft.com/technet/scriptcenter/csc/scripts/ad/groups/cscad110.mspx

=========Script Code===========

strSGroupDN = InputBox (“Enter the DN of Source Group” & VBCRLF &_
vbcrlf& _
vbcrlf& _
“e.g. CN=Source Group,OU=Users,DC=NWTraders,DC=com”)
strDGroupDN = InputBox (“Enter the DN of Destination Group” & VBCRLF &_
vbcrlf& _
vbcrlf& _
“e.g. CN=Destination Group,OU=Users,DC=NWTraders,DC=com”)

set dicSeenGroupMember = CreateObject(“Scripting.Dictionary”)
set objDGroup = GetObject(“LDAP://” & strDGroupDN)
DisplayMembers “LDAP://” & strSGroupDN, dicSeenGroupMember
Function DisplayMembers (strGroupADsPath, dicSeenGroupMember)
set objGroup = GetObject(strGroupADsPath)
for each objMember In objGroup.Members
objDGroup.Add(“LDAP://” & objMember.distinguishedName)
next
End Function
MsgBox “Group Members have been copied to Destination Group”

=========Script Code===========

Written by Amit Tank

November 20, 2007 at 9:13 am

Posted in VBScript

%d bloggers like this: