Bonjour a tous !
 
Je suis actuellement alternant dans une grande entreprise, pour mon mémoire final, je dois réécrire un programme qui regroupe plusieurs outils d'administrations.
 
Je dois créer un bouton qui me permet de récupérer d'un information sur l'utilisateur du genre: son login et son nom complet.
 
Pour cela j'utilise le code suivant :
 
        'Connexion à l'AD
        Try
 
            ' Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://mon_domaine", gstrUserName, gstrPassword)
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
 
            dim nomutilisateur
            nomutilisateu=inputbox ("nom de l'utilisateur a trouver " )
            'Recherche d'un objet dans l'AD
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://mon_domaine", gstrUserName, gstrPassword)
            Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)
 
            searcher.Filter = "(objectuser=" & nomutilisateur & " )"
 
            Dim DirEntry As DirectoryEntry
 
            For Each result As SearchResult In searcher.FindAll
 
                Dim login, Nom, Prénom, Email, Tél, Description
 
                'Dim result As DirectoryServices.SearchResult = searcher.FindOne()
                'SearchResult In searcher.FindAll()
 
 
                'Récupération de l'entrée trouvée lors de la recherche
                DirEntry = result.GetDirectoryEntry
 
                login = DirEntry.Properties("SAMAccountName" ).Value
                Nom = DirEntry.Properties("sn" ).Value
                Prénom = DirEntry.Properties("givenName" ).Value
                Email = DirEntry.Properties("mail" ).Value
                Tél = DirEntry.Properties("TelephoneNumber" ).Value
                Description = DirEntry.Properties("description" ).Value
 
                MsgBox(login & " " & vbCrLf & Nom & " " & Prénom & vbCrLf & Email & vbCrLf & Tél & vbCrLf & Description)
            Next
        End Try
 
Mais lorsque je cliqque sur le bouton et que je rentre le nom de mon utilisateur rien ne se passe !!!!!
 
Au secourssssssss  
 
Ma config Windows 7 sur serveur 2003 et 2008  
Prog en VB 2010 ultimate