Script VBS + active directory + ajouter un user a un groupe

Recherche :

Dernière réponse
Sujet : Script VBS + active directory + ajouter un user a un groupe
limvachlapdinos	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

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

limvachlapdinos

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

ramsesII

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.

c_moa

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

ramsesII

Dsl ce script n'est plus disponible.

c_moa

.. CN aussi pour un groupe.

Peux-tu donner les lignes précédentes ?

ramsesII

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 !!

c_moa

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

ramsesII

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...