Lire/Ecrire dans l'AD en VBA

2 réponses
Avatar
JièL
Salutatousse

Je sais que je ne suis pas vraiment dans le bon NG, mais j'ai un gros
"rien du tout" comme réponse dans ceux qui causent de VBA, alors je
tente auprès des vrais programmeurs :-)

quelqu'un a déjà tenté d'écrire (et de lire éventuellement) dans
l'Active Directory à partir du VBA d'Access 2003 ou autre ?

Mon but : ajouter des machine dans certains "dossiers" "sous dossiers"...

Merci d'avance

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est là : http://faq-outlook.fr/

Boycott des questions venant de CDO
http://faq-outlook.fr/viewpage.php?page_id=2

2 réponses

Avatar
Lotre
bon [soir | jour],

A peu de chose près, on peux faire en vba la même chose qu'en vbs (et
bien sûr nettement plus par ailleurs).
En revanche, la syntaxe est un peu différente pour l'nitialisation des
objets et les variables sont "typables" ...
mais si tu connais VBA tu le sais déjà.

donc... des choses du type

Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")

ou bien

Set objMachine = _
GetObject("LDAP://cn=PosteB28,ou=Bureau8,dc=MonDomaine,dc=local")

devraient fonctionner


Les multiples exemples du scriptCenter devraient te convenir ...

http://www.microsoft.com/technet/scriptcenter/scripts/ad/ous/default.mspx?mfr=true

bonne recherche...

HB
Avatar
F. Dunoyer
JièL a écrit :
Salutatousse

Je sais que je ne suis pas vraiment dans le bon NG, mais j'ai un gros "rien
du tout" comme réponse dans ceux qui causent de VBA, alors je tente auprès
des vrais programmeurs :-)

quelqu'un a déjà tenté d'écrire (et de lire éventuellement) dans l'Active
Directory à partir du VBA d'Access 2003 ou autre ?

Mon but : ajouter des machine dans certains "dossiers" "sous dossiers"...

Merci d'avance



Salut Jiel :) content de te croiser aussi "ici" :)
Et faire appeler un script VBS ou PS par ton VBA ?
ce ne serait pas une solution ?

--
François Dunoyer
Des infos en Vrac : http://fds.mvps.org/ta/envrac.htm
Site perso : http://www.fdunoyer.net
Blog : http://fds34.spaces.live.com/