Discussion :

[Awesome99]

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.

[Daynvheur]

/!\ Je n'ai pas d'AD sous la main pour vérifier que cette proposition est viable.
Si le script est exécuté de n'importe-où et doit inscrire les postes en fonction de leur nom :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set objOU = GetObject("LDAP://ou=test,dc=test,dc=com")
objOU.Filter = Array("computer")
For Each objComputer In objOU
	strRecherche = UCase(Left(objComputer,7)) 'Récupération du nom du groupe désiré (est-ce que ça va ?)
	Set objGroup = GetObject("LDAP://cn=" & strRecherche &",ou=test,dc=test,dc=com")
	If (objGroup.IsMember(objComputer.AdsPath) = False) Then
		objGroup.Add(objComputer.AdsPath) 'Ajout du poste dans le bon groupe
	End If
	Set objGroup.Value = "" 'Hum, est-ce que cette ligne va bien ?
Next

~Il n'y a pas de vérifications si le nom du poste ne correspond à rien, ou autre.

Est-ce que ça convient ?