none
ADSI et vb.net RRS feed

  • Question

  • Bonjour,

    j'ai écrit un script en vb.net qui me sert à récupérer les comptes utilisateurs sur l'AD mais bien entendu ça ne marche pas.

    Sur developpez.com et laboratoire microsoft personne n'a pu me dépanner.

    Voici le script !

     

    Imports System.DirectoryServices

    Imports System.DirectoryServices.ActiveDirectory

    Imports System.IO

     

    Dim MonCpt As String = CStr(TextBox1.Text)

    Dim MonPass As String = CStr(TextBox2.Text)

    Dim MonCheminLDAP As String = "CN=...,OU=...,DC=..."

    Try

    Dim LDAP As New DirectoryEntry("LDAP://" & MonCheminLDAP, MonCpt, MonPass, AuthenticationTypes.Secure)

    Catch ex As Exception

    MessageBox.Show(ex.Message)

    End Try

    Dim MonEntree As New DirectoryEntry("LDAP://" & MonCheminLDAP, MonCpt, MonPass, AuthenticationTypes.Secure)

    Dim Chercher As DirectorySearcher = New DirectorySearcher(MonEntree)

    Chercher.Filter = "(ObjectClass=user)"

    Dim Fichier As New StreamWriter("c:\MonFichier.txt")

    Dim DirEntree As New DirectoryEntry

    For Each resultat As SearchResult In Chercher.FindAll

    'On récupère l'entrée trouvée lors de la recherche

    DirEntree = resultat.GetDirectoryEntry

    'On peut maintenant afficher les informations désirées

    Fichier.WriteLine("Login : " + DirEntree.Properties("SAMAccountName").Value.ToString)

    'Fichier.WriteLine("Nom : " + DirEntree.Properties("sn").Value)

    'Fichier.WriteLine("Prénom : " + DirEntree.Properties("givenName").Value)

    'Fichier.WriteLine("Email : " + DirEntree.Properties("mail").Value)

    'Fichier.WriteLine("Tél : " + DirEntree.Properties("TelephoneNumber").Value)

    'Fichier.WriteLine("Description : " + DirEntree.Properties("description").Value)

    'Fichier.WriteLine("-------------------")

    Next

    MonEntree.Close()

    Fichier.Close()

    MsgBox("Terminé")

    Application.Exit()

     

     

    Je ne comprends pas pourquoi cela ne marche pas!

    Peut-etre est-ce un probleme de parametrage de visual 2005.

    Merci pour votre aide.

    mardi 8 janvier 2008 10:03