Discussion :

[geros]

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

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

Code :

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

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

[geros]

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 :

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

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.

[RadPAT]

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 :

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

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