Discussion :

[renoelectro]

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

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

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

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

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

[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

[RadPAT]

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 :

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

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