Ajout d'un groupe AD dans groupe local (machine)

Version imprimable

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:

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

Salut,

dans ton script, tu as inversé le nom de machine et le groupe administrateur.
D'autre part, si tu as des machines avec des OS non français, ca ne fonctionnera pas (un OS anglais connait administrator et non pas administrateur). Donc, je te conseille d'abord d'extraire le nom du groupe administrateur local, puis après de claquer ce nom sur ta machine.
Voici comment je fais :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 on error resume Next strComputer = "." Set WshNetwork = CreateObject("Wscript.Network") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colAccounts = objWMIService.ExecQuery("Select * From Win32_Group Where LocalAccount = TRUE And SID = 'S-1-5-32-544'") For Each objAccount in colAccounts AdmGrp = objAccount.Name Next Set objGroup = GetObject("WinNT://" & strComputer & "/" & AdmGrp) Set objUser = GetObject("WinNT://" & AdmGrp) objGroup.Add(objUser.ADsPath) MsgBox "Command completed" WScript.Quit
A++

Citation:

Envoyé par RadPAT

Salut,

dans ton script, tu as inversé le nom de machine et le groupe administrateur.
D'autre part, si tu as des machines avec des OS non français, ca ne fonctionnera pas (un OS anglais connait administrator et non pas administrateur). Donc, je te conseille d'abord d'extraire le nom du groupe administrateur local, puis après de claquer ce nom sur ta machine.
Voici comment je fais :

A++

Bonjour et merci,

J'ai remodifié ton exemple à ma convenance et cela fonctionne (je vais encore affiner).

cela donne pour info
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 on error resume Next 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 strComputer = "." Set WshNetwork = CreateObject("Wscript.Network") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colAccounts = objWMIService.ExecQuery("Select * From Win32_Group Where LocalAccount = TRUE And SID = 'S-1-5-32-544'") For Each objAccount in colAccounts AdmGrp = objAccount.Name Next Set objgroup= GetObject("WinNT://"&nom_machine &"/" & AdmGrp) Set objUser = GetObject("WinNT://mondomaine/__materiel") objGroup.Add(objUser.ADsPath) WScript.Quit
Je classe donc cette discussion en résolu.

G.

Citation:

Envoyé par geros

Bonjour et merci,

J'ai remodifié ton exemple à ma convenance et cela fonctionne (je vais encore affiner).

supprime déjà tout ce qui concerne WshShell.Environment, WshNetwork et nom_machine

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
on error resume Next
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery("Select * From Win32_Group Where LocalAccount = TRUE And SID = 'S-1-5-32-544'")
 
For Each objAccount in colAccounts
    AdmGrp = objAccount.Name
Next
 
Set objgroup= GetObject("WinNT://"& strComputer & "/" & AdmGrp)
Set objUser = GetObject("WinNT://mondomaine/__materiel")
 
objGroup.Add(objUser.ADsPath) 
 
WScript.Quit

A++