Microsoft
Software
Hardware
Network
Question : vbscript with Loop command
Hi All,
I have below script, which copy user members from one group and cpies to another group.Now the question is that i have 6 different source groups and 6 target groups. I dont want to run 6 differnet scripts for each group. Can someone help me out with this. We can define set objx1....objx6 and same for target and then run the for command looping for each group.
--------------------------
----------
----------
-------
Set objSource = GetObject("LDAP://cn=Locat
ion - src, ou=Distribution Lists, ou= Groups, dc=xyz, dc=com")
' Select target group.
Set objTarget = GetObject("LDAP://cn=Locat
ion- DL, ou=Security Groups, ou=Groups, dc=xyz, dc=com")
' Enumerate members of source group.
For Each objMember In objSource.Members
' Check if this object already a member of the target group.
If (objTarget.IsMember(objMem
ber.AdsPat
h) = False) Then
' Add this object to the target group.
objTarget.Add(objMember.Ad
sPath)
count = count + 1
End If
Next
if count < 1 then
count = 0
end if
--------------------------
----------
----------
-----
Thanks
Answer : vbscript with Loop command
I am not familiar with the specifics of the ldap object, but you need to check to see if it is a group, and ignore it if it is.
Random Solutions
How to send a POST value with javascript onKeyPress
I cant' Setup Windows 2008 Cluster with 2 HP Prolient 360 G5?
Dell PERC H200 in a PowerEdge R210 - Where do the cables go?
msaccess help with sql query
Best way to use iDisk
RPC over HTTPS
Folder location for Logon scripts
How to manage permissions for my helpdesk team
dcdiag DCOM error from old/removed server
DNS Zones not AXFR'ing from primary