Recuperer l'email d'un user sur ADSI depuis VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Recuperer l'email d'un user sur ADSI depuis VBA

Anteus

Mieux vaut prévenir que guérir

Hello

Je cherche a recuperer l'email d'un user ADSI depuis VBA.

En gros, j'ai une macro XL, depuis laquelle je veux consulter AD pou recuperer l'adresse email de l'utilisateur windows logge sur le poste.

Je trouve bien quelques trucs sur le net, mais ca me semble emminement complique pour une requete aussi simple. Notamment, il faut fournir le nom de serveur AD, plus quelques autres parametres un peu obscurs pour moi.

J'aurais tendance a penser que Windows a quelque part en BDR les parametres AD, et que je pourrais exploiter ca.

Mais surtout, comment recuperer l'info depuis AD?

Merci d'avance!

---------------
Autonomie, Excellence, But

Publicité

Anteus

Mieux vaut prévenir que guérir

Bon ben en grattant un peu et avec l'aide de collegues, la solution est la:

Code :

Private Sub main2()
Dim rootDSE, DomainContainer
Set rootDSE = GetObject("LDAP://RootDSE" )
DomainContainer = rootDSE.get("defaultNamingContext" )
strUser = Environ$("Username" )
strLDAP = "<LDAP://" & DomainContainer & ">;(samAccountName=" & strUser & " );adspath;subtree"
Dim conn
Set conn = CreateObject("ADODB.Connection" )
conn.Provider = "ADSDSOObject"
conn.Open "ADs Provider"
Dim RS, oUser
Set RS = conn.Execute(strLDAP)
If RS.EOF Then
WScript.Echo "User " & strUser & " not found"
Else
Set oUser = GetObject(RS.Fields(0).Value)
End If
MsgBox oUser.get("mail" )
End Sub

---------------
Autonomie, Excellence, But

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Recuperer l'email d'un user sur ADSI depuis VBA

Sujets relatifs
visuel studio 2008/recuperer la valeur d'une cellule du gridview	[VBA Excel] Changer la couleur suite a une formule
Récupérer id d’une page une autre	[VBA] Remplir une table Access à partir d'un tableau
[VBA] Paramêtres cachés mais modifiables	PowerPoint 2007 Fenêtre Recherche Rapide VBA
XERCESC 2.8 - Récupérer le type défini dans le xsd	[VBA] A la rescousse d'un noob en galère sur une macro
Excel VBA, API SendMessage ne fonctionne pas	filtrage automatique sur excel par bouton et action VBA
Plus de sujets relatifs à : Recuperer l'email d'un user sur ADSI depuis VBA

Page générée en 0.054 secondes