Active Directory et VBA Access

Active Directory et VBA Access - VB/VBA/VBS - Programmation

Marsh Posté le 21-04-2005 à 16:57:41    

Salut tout le monde,
 
Je suis nouvelle ici et vous semblez être assez connaissant en VB et en access alors je tente ma chance ici.  J'ai fait une recherche pour m'assurer que cette question n'avait pas déjà été posé et ca ne semble pas être le cas.  Alors je me lance! ;)  Je me débrouille très bien en access puisque ca fait des années que j'en fait mais là j'ai un bug.  Je ne sais pas si c'est un problème de droit ou quelque chose du genre mais bon... je vous explique.
 
J'ai créé une procédure dans access (même si ce n'est pas l'idéal) qui permet d'aller chercher les information dans la base de donnée de paie et qui crée les usagers dans active directory.  Mon problème est qu'il n'accepte pas de créer tous les champs.  Tout fonctionne parfaitement sauf les 3 lignes que j'ai identifié avec des étoiles.  Ce sont des champs important étant donnée que c'est supposé écrire le nom et le prénom de l'usager.  Les champs n'ont aucune particularité différente des autres.  Mon plus gros problème c'est que si ces commandes sont exécuté à partir de vbscript (plutot que dans access) ca fonctionne bien mais je ne connais pas suffisant vbscript pour accéder à ma base de donnée de paie et manipuler mes enregistrements.  Si vous avez une idée du pourquoi ca ne fonctionne pas ca me serait d'une très grande utilité.  Mon code en entier crée l'usager à la bonne place dans AD et crée sa mailbox.  Il vérifie aussi qu'il n'y a aucun utilisateur portant le même nom et ajoute un numéro séquentiel si jamais il existe.  Voici le bout de code qui ne semble pas fonctionner.
 
Set objUser = objContainer.create("User", recip)
objUser.put "samAccountName", NUserName
*****objUser.put "sn", LastName
*****objUser.put "givenName", FirstName
objUser.put "DisplayName", LastName & ", " & FirstName
objUser.put "UserPrincipalName", NUserName
objUser.put "scriptPath", "logon.bat"
objUser.put "UserAccountControl", 66112
*****objUser.put "physicalDeliveryOfficeName", ecole
 
L'erreur qu'il me donne est une "automation error", aussi bien dire qu'il ne me dit rien mais il arrête de fonctionne à ce niveau.  Si je place en commentaire ces 3 lignes tout fonctionne mais je ne peux pas les enlever dans ma version finale.  Ces lignes sont essentiels dans AD (du moins dans mon cas).
 
Merci de bien vouloir éclairer ma lanterne le plus rapidement possible :) Éventuellement je vais le faire en vb.net mais en attendant, étant donné qu'il est tout fait en access j'aimerais que ca fonctionne.  Ca m'éviterais de tout convertir tout suite parce que je manque de temps... et d'expérience en VB.NET et je rush un peu...  :ange:  Si vous n'avez pas d'idée pouvez-vous m'indiquer où je pourrais trouver les informations pour résoudre mon problème s.v.p.  Et si jamais quelqu'un a fait quelque chose de semblable dans VB.Net et serait prêt à partager son code je suis preneuse aussi!! ;)
 
Je tiens aussi à m'excuser à moldar parce que je lui ai envoyé un message privé et normalement je commence toujours par le forum avant d'en arriver là.  J'ai eu des problèmes de postage et j'ai donc essayer un message privé et ca a passer alors j'ai réessayé ici et ca semble fonctionner maintenant étant donné que tu peux lire ceci.  Si tu veux me répondre en privé ca me va mais sinon tu peux me répondre ici.
 
Je vous souhaite une excellente journée
Athena


Message édité par Athena159 le 22-04-2005 à 15:05:43
Reply

Marsh Posté le 21-04-2005 à 16:57:41   

Reply

Marsh Posté le 22-04-2005 à 14:54:56    

Est-ce parce que ma question n'est pas clair ou c'est parce qu'elle est trop compliqué?  Ou c'est seulement que personne n'a d'idée sur la cause de mon problème?  Y'as-ti quelqu'un qui peut me faire un p'tit coucou au moins? :p

Reply

Sujets relatifs:

Leave a Replay

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