Ce connecter à un annuaire ldap sous VB6 et recup d'infos
Ce connecter à un annuaire ldap sous VB6 et recup d'infos - VB/VBA/VBS - Programmation
MarshPosté le 30-11-2005 à 09:46:25
Bonjour à tous,
Voila j'ai mon active directory surs Windows server 2003, je voudrais pour l'instant récupérer pour faire simple l'info d'un utilisateur.
Ici ce code traduit : j'ai un active directory sur mon server morganserver, dans laquelle se trouve une OU famille dans laquelle se trouve l'utilisateur casey. J'aimerais pour tester que le code me renvoie par exemple le numéro de tel ce cet utilisateur.
Private Sub Command1_Click()
On Error Resume Next
Dim objgroup
Set objgroup = GetObject("ldap://CN=casey,ou=famille,DC=morganserver,DC=com" )
MsgBox objgroup.Get("name" )
End Sub
Si j'enlève le ON ERROR RESUME NEXT, j'ai une erreur d'automation sur le server.
Marsh Posté le 30-11-2005 à 09:46:25
Bonjour à tous,
Voila j'ai mon active directory surs Windows server 2003, je voudrais pour l'instant récupérer pour faire simple l'info d'un utilisateur.
Ici ce code traduit : j'ai un active directory sur mon server morganserver, dans laquelle se trouve une OU famille dans laquelle se trouve l'utilisateur casey. J'aimerais pour tester que le code me renvoie par exemple le numéro de tel ce cet utilisateur.
Private Sub Command1_Click()
On Error Resume Next
Dim objgroup
Set objgroup = GetObject("ldap://CN=casey,ou=famille,DC=morganserver,DC=com" )
MsgBox objgroup.Get("name" )
End Sub
Si j'enlève le ON ERROR RESUME NEXT, j'ai une erreur d'automation sur le server.
Donc ici rien ne m'est renvoyé