Ajout d'un groupe.AD dans les admins locaux

Bonjour,

J'ai fait plusieurs recherches sur le sujet et j'ai pu trouver un bout de ce que je voulais :).
Je souhaite rajouter un gorupe de l'AD dans le groupe "Administrateurs locaux de chaque station de mon parc informatique.

J'ai pu trouver chez technet le script suivant qui me satisfait :

Citation:

---

Set objNetwork = WScript.CreateObject("WScript.Network")
Set objGroup = GetObject("WinNT://" & objNetwork.ComputerName & "/Administrateurs,group")
Set objUserSTE = GetObject("WinNT://domaine/NomDuGroupe,group")
objGroup.Add(objUserSTE.ADsPath)

---

J'ai ajouté dans mon AD une GPO pour exécuter le script au démarrage du poste, l'ennui c'est qu'une fois exécuté par le poste, une erreur apparait le lendemain invoquant le fait que le groupe fait déjà parti des admins locaux (et à juste titre).

Étant très peu coutumier du scripting et plus encore des IF / END IF / THEN etc. sur des classes d'objets qui me sont inconnus, pourriez vous me donner un coup de main pour faire la vérification suivante (en gros) :

Citation:

---

-- si le groupe.domaine ne fait pas parti des compte Administrateurs
IF objUserSTE not in objGroup
-- alors ajouter le
Then objGroup.Add(objUserSTE.ADsPath)
-- sinon quitter
END IF -> Exit

---

J'ai comme solution de l'enlever et le rajouter en attendant,
ô secours Obiwan !

Salut.

Je pense que tu peux créer une fonction IsMemberOf pour savoir si le groupe AD fait déjà partie de ton groupe local.

Genre comme celà :

Code:

---

1 2 3 4 5 6

Function IsMemberOf(objAdGroup, objLocalGroup) IsMemberOf = False For Each objItem in objLocalGroup.Members If objAdGroup.Name = objItem.Name Then IsMemberOf = True Next End Function

---

et l'appeler comme ça :

Code:

---

1 2	-- si le groupe.domaine ne fait pas parti des compte Administrateurs -- alors ajouter le groupe IF NOT IsMemberOf(objUserSTE,objGroup) Then objGroup.Add(objUserSTE.ADsPath)

---

Dans l'esprit ça peut être ça, après je sais pas si il vaut mieux tester les noms ou autre chose, c'est à voir.

Merci pour cette réponse, cela semble fonctionner.

J'avoue être perdu entre les objets, les fonctions et les différentes manières de les appeler / les contrôler.

L'ensemble des tutoriels que je vois parle de beaucoup trop de choses, des choses qui ne me sont pas utiles et j'ai du mal à m'y accrocher pour quelques scripts mensuels sous l'AD, notamment sur de la consultation ou on trouve relativement facilement des sources chez MSDN et compagnie.