IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Connexion à Active Directory à partir de VB.Net


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Février 2011
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 1
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  2. #2
    Membre émérite Avatar de bizet
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juin 2005
    Messages
    717
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2005
    Messages : 717
    Par défaut
    Salut

    Premiere chose a faire :
    telecharger un explorateur AD (AdExplorer.exe par exemple) et tester de te connecter à ton AD depuis ta machine physique.

    Si tu arrives à te connecter à l'AD alors tu sais que ca vient de ton code, si tu n'arrives pas à te connecter alors tu as fait une erreur de configuration.

    Bon courage.

    PS : rien dans ton code ne me semble boquant à la première lecture.

Discussions similaires

  1. Réponses: 2
    Dernier message: 05/03/2008, 09h29
  2. Réponses: 1
    Dernier message: 09/06/2006, 11h00
  3. [JNDI] Connexion Active Directory
    Par le Daoud dans le forum API standards et tierces
    Réponses: 1
    Dernier message: 05/06/2006, 10h08
  4. [C#] Connexion Active Directory
    Par lordkoko dans le forum ASP.NET
    Réponses: 2
    Dernier message: 09/02/2006, 17h04
  5. [VBA-E] Connexion Active Directory
    Par david522 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 23/12/2005, 13h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo