Архивы: security group

Скопировать адских юзеров из одной security group в другую

Потребовалось скопировать юзеров из одной sceurity group в другую. Оказывается штатными средствами (по крайней мере в AD на 2003) это невозможно О_о. Блядство. Порылся в интернетах, нашел следующее:

Скрипт раз — отрабатывает с ошибкой. Не пойдет

Скрипт два — сначала работать отказался, потом после замены заглавных букв на строчные  ( О_О ) — заработал. Вот собственно как он выглядит:

copyusersfromoneSGtoanother.vbs

strSGroupDN = InputBox («Enter the DN of Source Group» & VBCRLF &_
                  vbcrlf& _
                  vbcrlf& _
                  «e.g. CN=1с_users_2010,OU=Security Group,DC=mydomen,DC=ru»)
strDGroupDN = InputBox («Enter the DN of Destination Group» & VBCRLF &_
                  vbcrlf& _
                  vbcrlf& _
                  «e.g. CN=1с_users_2011,OU=Security Group,DC=mydomen,DC=ru»)
 
set objSGroup = GetObject(«LDAP://» & strSGroupDN)
set objDGroup = GetObject(«LDAP://» & strDGroupDN)

‘ Enumerate members of source group.
for each objMember In objSGroup.Members
    ‘ Check if member of destination group.
    if (objDGroup.IsMember(objMember.ADsPath) = false) then
        ‘ Add member to destination group.
        objDGroup.Add(objMember.ADsPath)
    end If
next