Récupération des informations AD

Bonjour,

J'ai un petit soucis dans mon programme quand je récupère les infos AD d'un utilisateur.

Plus précisemment, lorsque je lance mon programme normalement tout se passe correctement or, quand je fait un "clic droit -> ouvrir avec.. -> Mon prog" il me dit :

Citation:

---

Le mappage entre les noms de compte et les ID de sécurité n’a pas été effectué. (Exception de HRESULT : 0x80070534)

---

Voici mon petit bout de code :

Code:

---

1 2 3

objSysInfo = CreateObject("ADSystemInfo") struser = objSysInfo.UserName objUser = GetObject("LDAP://" & struser)

---

L'erreur arrive à la ligne en rouge. Il y a quelque chose que je ne comprends pas... Si quelqu'un pouvait m'expliquer ou même me corriger ça serait génial :)

Cordialement,

Fab

EDIT: J'ai réindenté mon code