Discussion :

[Mothership]

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 :

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) :

-- 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 !

[pitchalov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Mothership]

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.