Discussion :

[sENnOa]

Bonjour, je n'arrive pas à rajouter un groupe pour un utilisateur, pouvez-vous m'aider ?

Voici mon code : (l'utilisateur est "test1")

Code :

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

1
2
Set objGroup = GetObject("LDAP://SIE16/CN=TelnetClients, CN=Users, dc=cram, dc=local")
objGroup.Put "test1", "TelnetClients"

Merci

[ced600]

qu'elle est ton erreur ?

[RadPAT]

A mon idée, l'idéal serait de faire un get de ton utilisateur et un autre de ton groupe un peu comme ca :

Code :

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

1
2
3
 
Set objUser = GetObject("LDAP://cn=Rad PAT,ou=Users,ou=IT-Dept,dc=fabrikam,dc=com")
Set objGroup = GetObject("LDAP://cn=Dev Dept,ou=Groups,ou=IT-Dept,dc=fabrikam,dc=com")

puis d'envoyer la description de ton user dans le groupe :

Code :

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

1
2
 
objGroup.Add(objUser.ADsPath)

je ne sais pas si je réponds bien à ta question...fais le moi savoir

A+

[sENnOa]

Désolé je suis partie en vacances et j'ai completement oublié mon post, en fait j'ai procédé de cette façon :

Code :

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

1
2
3
Set objGroup = GetObject("LDAP://NomServeur/CN=NomDuGroupe", OU=Groupes Globaux, OU=Groupes ..., DC=..., DC=local")
	objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("CN=" & AdNewUserName & ", OU=Users ..., OU=Users ..., DC=..., DC=local") 
	objGroup.SetInfo

Encore merci de votre aide