[VBA-E]Verification login Active directory

Bonjour,

Dans vba Excel, j'ai un textbox dans lequel je dois entrer mon identifiant Windows, je veux que lorsque je quitte le focus, vba fasse une verification dans Active directory pour savoir si l'identifiant existe.

Jai essayé ca :
private sub textbox1_efterupdate
Call verification
end sub

private sub verification
Dim dso As IADsOpenDSObject
Dim szUsername As String
Dim szPassword As String

Set dso = GetObject("LDAP:")

' Insert code securely.


Set obj1 = dso.OpenDSObject( _
"LDAP://Workgroup/CN=Users,DC=domainName,DC=TypeExtensionDuDomaine", _
szUsername, _
szPassword, _
ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)

End Sub

Si l'identifiant n'existe pas, alors un message box s'affiche.


Ca ne foncionne pas, merci de m'aider !