Ajout ordinateur dans un groupe
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:
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:
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.