[vbs] ajout d'un utilisateur AD dans un groupe

ajout d'un utilisateur AD dans un groupe [vbs] - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2009 à 10:02:30    

Bonjour,
je suis en train de faire un script en vbs qui me permet d'ajouter des utilisateurs dans un groupe (à partir d'un fichier Excel)
cela fonctionne très bien depuis l'interface active directory users and computers
en fait, nous avons deux domaines, et je veux pouvoir ajouter dans un groupe le comtpe utilisateur des deux domaines (ils sont répliqués, j'ai les droits dessus puisque avect l'interface, cela fonctionne)
voilà le script utilisé
 

Code :
  1. Set objGroup = GetObject("LDAP://domaineA:389/" & objRecordSet.Fields("distinguishedName" ))
  2.        
  3. objCommand.CommandText = "<LDAP://domaineA.com:389/DC=DOMAINEA,DC=COM>;(&(objectCategory=user)(samAccountName=logonuserA));distinguishedName;subtree"
  4. Set objRecordSet2 = objCommand.Execute
  5. Set objUser = GetObject("LDAP://domaineA:389/" & objRecordSet2.Fields("distinguishedName" ))
  6. objGroup.add(objUser.ADsPath)


 
cela fonctionne bien (groupe A domaine A, utilisateurs U domaine A)
 en revanche :
 
Set objGroup = GetObject("LDAP://domaineA:389/" & objRecordSet.Fields("distinguishedName" ))
 
objCommand.CommandText = "<LDAP://domaineB.toto.com:389/DC=DOMAINED,DC=TOTO,DC=COM>;(&(objectCategory=user)(samAccountName=logonuserA));distinguishedName;subtree"
Set objRecordSet2 = objCommand.Execute
Set objUser = GetObject("LDAP://domaineB.toto.com:389/" & objRecordSet2.Fields("distinguishedName" ))
objGroup.add(objUser.ADsPath)
 
cela ne fonctionne pas (groupe A domaine A, utilisateurs U domaine B)
le message d'erreur suivant apparait : there is no such object on the server.
 
 
j'ai testé les connectsting, elles sont ok, j'ai essayé en mettant le domaine A dans la recherche, mais rien n'y fait
 
comment puis-je ajouter l'utilisateur U du domaine B dans mon groupe faisant partie du domaine A ?
 
Merci d'avance

Reply

Marsh Posté le 23-03-2009 à 10:02:30   

Reply

Marsh Posté le 12-05-2009 à 16:22:28    

hello!
 
Je m'y connais peu en VBS mais tu as écris ça :  
 

Citation :

objCommand.CommandText = "<LDAP://domaineB.toto.com:389/DC=DOMAINED,DC=TOTO,DC=COM>;(&(objectCategory=user)


 
DOMAINED ou DOMAINEB pour le domaine B?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed