Bonjour,
Dans le cadre d'un changement de structure je dois mettre au point quelques scripts vbs.
L'un d'eux doit permettre d' ajouter au groupe local administrateur de chaque machine un groupe créé au niveau AD (Active Directrory)
Le script suivant renvoie un message d'erreur (cet objet ne gère pas cette méthode ou propriété), j'ajoute que je n'ai fait que reprendre un script glané grace à mon ami google et adapté pour récupérer le nom de la machine automatiquement
)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Set WshNetwork = WScript.CreateObject("WScript.Network" ) Set WshShell = WScript.CreateObject("WScript.Shell" ) Set WshSysEnv = WshShell.Environment("SYSTEM" ) Dim nom_machine nom_machine = WshNetwork.ComputerName 'contient nom de la machine msgbox nom_machine Set grp1 = GetObject("WinNT://mondomaine/__materiel") Set grp2 = GetObject("WinNT://"& nom_machine & "/Administrateur") Msgbox grp1.ADsPath Msgbox grp2.ADsPath grp2.add(grp1.ADsPath
Voyez vous ou est le problème.
Avez un exemple de script qui me permettrait de faire cela (ajout groupe ad dans groupe local).
Merci par avance
G.
ps: désolé pour l'oubli des balises codes
Partager