ajout d'un ordinateur dans un groupe

Version imprimable

Bonjour avec vous un ptit script pour ajouter un ordinateur à un groupe active directory ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
strOU = "CN=MAC_Advitium_Package_Computers, OU=software, OU=groups, OU=metso minerals, OU=mac," 
 
Const PathMDB   = "\\macs16\poste_advitium_test" 
 
 
' Lien avec l'AD
 
Set objRootLDAP = GetObject("LDAP://rootDSE")
 
Set objGroup = GetObject("LDAP://"& strOU & objRootLDAP.Get("defaultNamingContext")) 
 
 
' Creation du tableau qui liste les ordinateurs
 
Set fso = CreateObject("Scripting.FileSystemObject")
imax = 0
'début de l'énumération
For Each fichier In fso.GetFolder(PathMDB).Files
    Set fileItem = fso.GetFile(fichier)
 
    imax = imax + 1
    ReDim Preserve Tableau(1, imax)
    Tableau(1, imax) = Fichier.Name
 
 
    Set fileItem = Nothing
Next
 
 
' Boucle sur le tableau
 
For i = 1 To imax
 
 
' Ajout computers a partir du tableau
objGroup.Add Tableau(1,i).AdsPath
 
 
 Next
 
WScript.Quit

26/02/2008, 17h07
RadPAT
Salut,

quand tu parles de groupe, tu veux sans doute dire OU ?

Si ton Pc est déjà dans dans l'AD et que tu souhaite le déplacer dans une OU, va voir cet article :

http://www.microsoft.com/technet/scr...6/hey0623.mspx

si c'est un Pc et que tu souhaites qu'il s'intègre à l'AD lors de l'install, tu dois modifier dans le unattend.txt la section Indentification comme ceci :
Code:

1 2 3 4 5 6 [Identification] JoinDomain=Fabrikam MachineObjectOU="OU=Computers,DC=Fabrikam,DC=com" DomainAdmin=administrator DomainAdminPassword=mot_ de_passe_Admin
Si windows est déjà installé tu as ce script :

http://cwashington.netreach.net/depo...tType=vbscript

A++
27/02/2008, 10h28
renoelectro

Bonjour Merci pour avoir pris le temps de repondre mais je veux en fait bien ajouter un pc dans un groupe afin de mettre une GPO active que sur ce groupe

Merci d'avance si vous avez une idée
03/03/2008, 10h55
RadPAT

Citation:

Envoyé par renoelectro

je veux en fait bien ajouter un pc dans un groupe afin de mettre une GPO active que sur ce groupe

c'est ton droit mais je ne vois pas vraiment l'intéret...

Sinon dans ton code, je vois :

Code:

objGroup.Add Tableau(1,i).AdsPath

je suppose que ca te ressort bien le nom de ta machine au format LDAP distingishedName (du style cn=...,ou=...,dc=...,dc...)
Si oui, à ta place dans ta dernier boucle, je referai un set = getobject de ton groupe avant le group.add (comme tu as fais au début)
Dis nous si ca marche ou pas.

A++