Bjour
 
Je dois ajouter des utilisateurs dans AD sur un 2003 Standard, tout se passe bien a l'exception de l'ajout de l'user dans un groupe, en l'occurrence "utilisateurs du bureau a distance". Je me demandais si quelqu'un avait une solution a mon probleme, sachant que le script concernant l'ajout dans un groupe est :
 
Const ADS_PROPERTY_APPEND = 3
Set objGroup = GetObject("LDAP://cn=" & oXL.activecell.offset(0,3).Value & ",ou=Users,dc=" & DC1 & ",dc=" & DC2)  
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=Administrators,ou=Builtin,dc=" & DC1 & ",dc=" & DC2)
objGroup.SetInfo
 
Sachant aussi que tout provient d'un classeur excel.... d'ou le oXL... et que le administrators est la passke "utilisateur du bureau a distance" ca se dit comment en anglais ???
Voila, toute solution ou début de solution est acceptée !
Merci d'avance...

De mémoire et sauf erreur de ma part,  ton script ajoute le groupe Administrators au groupe désigné par oXL.activecell.offset(0,3).Value .
 
Essaie cela  
 
Const ADS_PROPERTY_APPEND = 3  
Set objGroup = GetObject("LDAP://cn=Administrators,ou=Users,dc=" & DC1 & ",dc=" & DC2)  
objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=" & oXL.activecell.offset(0,3).Value & ",ou=Builtin,dc=" & DC1 & ",dc=" & DC2)  
objGroup.SetInfo  
 

Merci, apparement je m'y étais pris a l'envers. Par contre maintenant g une autre erreur qui me dit que l'objet ne se trouve pas sur le serveur. J'ai donc une erreur dans mon chemein LDAP... le pb c'est que pour désigner une personne en LDAP il faut utiliser CN mais pour un groupe ? Ex pour désigner le gpe administrateurs :
 
"LDAP://????=Administrateurs,OU=Builtin,DC=" & DC1 & ",DC=" & DC2
           |
           |  Voici l'endroit que je cherche.. CN ne marche pas...
 
Merci d'avance !!

.. CN aussi pour un groupe.
 
Peux-tu donner les lignes précédentes ?

Dsl ce script n'est plus disponible.

Il est un peu tard, je regarderai cela en détail demain.
 
Juste une remarque.
Pas besoin du  
 
'Accès à l'utilisateur venant d'être créé via LDAP  
 Set usrc = GetObject("LDAP://" & Server & "/cn=" & oXL.activecell.offset(0, 3).Value & ",cn=Users,dc=" & DC1 & ",dc=" & DC2)  
 'Définition du mot de passe  
 usrc.SetPassword Password  
 
 
tu peux directement faire un  
 
 
  'Mise à jour des informations pour l'objet utilisateur  
        user.SetInfo  
               
 
                          '**********************************  
                          '* Initialisation du mot de passe *  
                          '**********************************  
         
         
        'Récupération du mot de passe dans la feuille Excel  
 Password = oXL.activecell.offset(0, 4).Value  
 user.SetPassword password
 user.SetInfo
 

Oki merci pour tout ce que tu fais pour moi. Pour la ligne que tu m'as dit qui était en trop c vrai qu'elle est pas très utile. Vais la virer.
Pour les users, ca marche toujours pas... mais j'ai viré ce qui concerne les groupes pour l'instant, comme ca mes users sont créés et j'ai juste a rajouter les groupe a la main...perte de temps mais pour l'instant ca va.

Regarde ici, ça peut peut etre t'aider, j'avais eu le meme probleme.
 
http://reseauactif.free.fr/  dans création de comptes en bloc.
 
 
lim