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