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,..
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 ;
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
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
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!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 strComputer = objSysInfo.ComputerName strRecherche = UCase(Left(strComputer,7))
Voilà merci d'avance.
Partager