lire les valeurs d'un objet dans LDAP en vbs

lire les valeurs d'un objet dans LDAP en vbs - VB/VBA/VBS - Programmation

Marsh Posté le 22-05-2005 à 01:52:40    

Bonjour,
 
Dans un annuaire LDAP j'ai créé quelques objets tel que :
 
dn: cn=test,dc=domain,dc=com
objectClass: top
objectClass: posixAccount
objectClass: inetOrgPerson
cn: test
sn: test
givenName: test
uid: test
uidNumber: 1000
gidNumber: 1001
homeDirectory: /home/test
userPassword: test
loginShell: /bin/false
 
Je voudrais écrire un script WSH permetant de récupérer les valeurs de ces objets. Pour commancé j'ai essayé de lire la valeur "uid" de l'objet nommé "test". Pour celà j'ai écrit ceci en m'inspirant de différents scripts trouvés sur le net :
 
strPath = "LDAP://192.168.1.1/cn=test,dc=domain,dc=com"
strUsername = "cn=admin,dc=domain,dc=com"
strPassword = "pass"
Set adsNamespaceLDAP = GetObject("LDAP:" )
Set adsMyObject = adsNamespaceLDAP.OpenDSObject (strPath, strUsername, strPassword, 0)
set value = adsMyobject.uid
 
Lorsque j'exécute le script, j'obtient une erreur sur la dernière ligne qui m'indique :
Objet requis:'[string: "test"]'
 
Quelqu'un saurait-il m'expliquer comment je doit m'y prendre ?
merci d'avance.


---------------
Slasher
Reply

Marsh Posté le 22-05-2005 à 01:52:40   

Reply

Marsh Posté le 22-05-2005 à 03:46:55    

A priori il a l'air de récupérer correctement les données vu qu'il t'affiche même le uid (test) dans le message d'erreur. Mais il faut pas utiliser set si c'est un string: value = adsMyobject.uid devrait fonctionner.


Message édité par dividee le 22-05-2005 à 03:47:14
Reply

Marsh Posté le 22-05-2005 à 11:35:48    

Ca marche ! merci !


---------------
Slasher
Reply

Marsh Posté le 22-06-2005 à 12:07:01    

Bonjour j'ai un annuaire LDAP et je voudrai pouvoir en extraire des données en VBA pour les insérer dans une table Access.
Dites moi simplement si c'est réalisable en VBA ? J'ai bien dit VBA...

Reply

Marsh Posté le 22-06-2005 à 12:27:29    

SVP j'ai vraiment besoin de votre avis !

Reply

Sujets relatifs:

Leave a Replay

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