Как скопировать пользователей из одной локальной группы в другую в Windows

By: Dmitry Bobrovsky Date: 26.10.2011 Categories: !RUS,WINDOWS

или как создать копию локальной группы.

В этом поможет скрипт, взятый отсюда How Can I Copy the Membership of a Local Group to a New Local Group?

Создаем текстовый файл CopyUsersFromGroup.vbs и копируем туда вот это:

' имя компьютера (можно без всяких префиксов и доменов)
strComputer = &quot;MyWorkComp&quot;
' группа из которой копируются пользователи
fromGroup=&quot;BadUsers&quot;
' группа в которую копируются пользователи
toGroup=&quot;GoodUsers&quot;

Set colAccounts = GetObject(&quot;WinNT://&quot; &amp;amp; strComputer &amp;amp; &quot;&quot;)

Set objNewGroup = colAccounts.Create(&quot;group&quot;, &quot;&quot;&amp;amp;toGroup&amp;amp;&quot;&quot;)
objNewGroup.SetInfo

Set objGroup = GetObject(&quot;WinNT://&quot; &amp;amp; strComputer &amp;amp; &quot;/&quot;&amp;amp;fromGroup&amp;amp;&quot;&quot;)

For Each strUser in objGroup.Members
    objNewGroup.Add(strUser.AdsPath)
Next

Это Visual Basic Script, выполнить можно просто двойным кликом (но можно и в CMD).

Выделенные строки создают новую группу, если она уже создана то их нужно закомментировать.