Copier groupe Active Directory dans groupes locaux machines
raizes
Messages postés8Date d'inscriptionvendredi 27 mars 2009StatutMembreDernière intervention 9 avril 2009
-
9 avril 2009 à 13:29
raizes
Messages postés8Date d'inscriptionvendredi 27 mars 2009StatutMembreDernière intervention 9 avril 2009
-
9 avril 2009 à 14:35
Bonjour,
J'utilise Visual Basic 2008 Express et je cherche à copier à l'aide d'un script le Groupe "Domain Users" de l'Active Directory dans le Groupe local / utilisateurs avec pouvoir de plusieurs machines.
Sur une seule machine c'est du gâteau en faisant :
clique-droit sur poste de travail, Gérer, Action, Se connecter à un autre ordinateur, Nom de l'ordinateur, Utilisateurs et groupes locaux, Groupes, Utilisateurs avec pouvoir...ect.
Mais lorsque l'on a une centaine de machines ça craint un peu !
J'aimerais donc savoir si vous pouvez m'aider à créer ce script.
raizes
Messages postés8Date d'inscriptionvendredi 27 mars 2009StatutMembreDernière intervention 9 avril 2009 9 avril 2009 à 14:35
J'ai trouvé ce script qui sert à copier les utilisateurs d'un groupe vers un autre groupe.
Cependant je cherche copier vers des groupes locaux donc pas pareil.
Mais ça peut aider une âme charitable à trouver la solution qui sait !
On error resume next
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"