Fråga : vbscript med kretsar befaller

Hi alla,

I har nedanfört att skriva, som kopierar användaremedlemmar från en grupp och cpies till another gruppen. Nu ifrågasätta är att jag har 6 olika källgrupper och 6 att uppsätta som mål grupper. Jag önskar inte att köra 6 som differnet skrivar för varje grupp. Kan någon hjälpa mig ut med denna. Vi kan definiera uppsättningen objx1….,objx6 och samma för uppsätta som mål och kör därefter för befaller att kretsa för varje group.


-----------------------------------------------------objSource för
Set = GetObject (”LDAP: //cn=Location - src, ou=Distribution listar, valda ou=grupper, dc=xyz,

' för dc=com”) uppsätta som mål objTarget för group.
Set = GetObject (”LDAP: //cn=Location- DL, ou=Securitygrupper, ou=Groups, dc=xyz,

' för dc=com”) Enumerate medlemmar av källan group.
For varje objMember i kontroll för objSource.Members
', om denna anmärker redan en medlem av uppsätta som mål group.
If (objTarget.IsMember (objMember.AdsPath) = falskt) Then
' tillfogar detta anmärker till objTarget.Add (objMember.AdsPath)/>count = räkningen + räkningen för 1
End If
Next

if < 1 then
count = för 0
end if
---------------------------------------------------


Thanks
" klar "

Svar : vbscript med kretsar befaller

Inte förtrogen med förmiddag I närmare detalj av ldapen anmärker, men du behöver att kontrollera för att se, om det är en grupp, och för att ignorera den, om den är.