Connexion à Active Directory à partir de VB.Net
Bonjour,
J’appelle à l’aide car je suis coincé à propos d’une connexion à un Active Directory en LDAP sous Windows Server 2003.
J’ai installé Windows Server 2003 dans une machine virtuelle sous VMware. J’ai paramétré la machine virtuelle pour qu’elle apparaisse sur le réseau comme une machine physique et elle y apparaît car je la vois en regardant toutes les machines se connectant au réseau. J’ai installé l’Active Directory et ai inséré quelques utilisateurs.
Le nom complet de l’ordinateur est « smith.test.local ».
Le domaine est « test.local ».
Je désire effectuer une connexion dans une application en VB.Net lancée à partir de ma vraie machine physique. En entrant un nom d’utilisateur déjà existant et son mot de passe, je veux me connecter à l’active directory de ma machine virtuelle pour récupérer les informations de l’utilisateur qui s’est connecté.
Voici le code que j'utilise pour me connecter :
Code:
1
2
3
4
5
6
7
| Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://smith.test.local/DC=test,DC=local", login, mdp, AuthenticationTypes.Secure)
Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
searcher.Filter = "(&(objectCategory=user)(SAMAccountName=" & login & "))"
Dim DirEntry As DirectoryEntry
Dim result As SearchResult
result = searcher.FindOne |
Au lancement de la connexion, l’application me sort une erreur : « Le serveur n’est pas opérationnel. » et me surligne « result = searcher.FindOne ».
J’ai vraiment besoin d’aide, j’ai cherché pendant des jours sur les forums, mais je n’arrive pas à me connecter sur l’active directory de ma machine virtuelle.
J’espère que quelqu’un pourra m’aider.
Merci d’avance.
