Bonsoir alors voilà je dois en effet ajouter un ordinateur dans un groupe spécific.

Par exemple j'ai un groupe SALLE-1 ; SALLE-2

Et des ordinateurs : SALLE-1-01; SALLE-1-02; SALLE-2-01,..

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
 
Set objGroup = GetObject("LDAP://cn=SALLE-1,ou=test,dc=test,dc=com")
 
 
Set objOU = GetObject("LDAP://ou=test,dc=test,dc=com")
 
 
objOU.Filter = Array("computer")
 
 
For Each objComputer In objOU
 
    If (objGroup.IsMember(objComputer.AdsPath) = False) Then
 
        objGroup.Add(objComputer.AdsPath)
    End If
Next
Donc là aucun problème ça ajoute bien les ordinateurs dans le groupe demandé mais maintenant ce que j'aimerais bien c'est qu'il rentre les ordinateurs avec le bon nom dans le groupe correspondant ;

Exemple : ordinateur SALLE-1-01 ira dans le groupe SALLE-1 et ainsi de suite.

J'ai bien pensé à faire une recherche sur le nom avec un

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
strComputer = objSysInfo.ComputerName
strRecherche = UCase(Left(strComputer,7))
Mais je ne pense pas que ça soit le bonne solution enfin si vous avez des idées ou quoi que ce soit je suis preneur!

Voilà merci d'avance.