none
Active Directory RRS feed

  • Question

  • Bonjour

    je souhaite récupérer la liste des ordinateurs dans l'AD dans un OU particuliere

    Voici mon code

     Dim dirEntry As DirectoryEntry = New DirectoryEntry()
            dirEntry.Path = "LDAP://192.168.xx.xx/DC=domain,DC=net,OU=ENTREPRISE,OU=Ordinateurs,OU=Services" 
            dirEntry.Username = "domain\adm"
            dirEntry.Password = "mdp"

    J'obtiens l'exception suivante : -2147016672 (Une erreur d'opération s'est produite.)

    Quelqu'un a t-il une idée svp ?

    Merci d'avance


    H.Sabatou

    vendredi 8 avril 2016 12:34

Réponses

  • Bonjour, H.Sabatou,


    Veuillez consulter l'article en bas :
    Working with Active Directory in VB.NET
    Je vous remercie par avance de votre retour.

    Cordialement,
    Teodora


    Votez! Appel à la contribution TechNet Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    samedi 9 avril 2016 09:46
    Modérateur
  • Bonjour,

    Je n'ai plus de message d'erreur.

    J'avais une erreur dans la définition de la chaine de connexion LDAP

    Merci Teodora


    H.Sabatou

    mercredi 13 avril 2016 07:42

Toutes les réponses

  • Bonjour, H.Sabatou,


    Veuillez consulter l'article en bas :
    Working with Active Directory in VB.NET
    Je vous remercie par avance de votre retour.

    Cordialement,
    Teodora


    Votez! Appel à la contribution TechNet Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    samedi 9 avril 2016 09:46
    Modérateur
  • Bonjour

    Merci pour le lien de cet article

    J'ai testé une partie du code

    j'obtiens une erreur lorsque j'essaie d'obtenir la liste des ordinateurs de l'AD

    voici le l'extrait du code que j'ai utilisé (source l'article)

    Public Shared Function ListAllADComputers() As Collection
            Dim dirEntry As DirectoryEntry = GetDirectoryEntry()
            Dim pcList As New Collection()
            '   1. Search the Active Directory for all objects with type of computer
            Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry)
            dirSearcher.Filter = ("(objectClass=computer)")
            '   2. Check the search results
            Dim dirSearchResults As SearchResult
            '   3. Loop through all the computer names returned
            For Each dirSearchResults In dirSearcher.FindAll()
                '   4. Check to ensure the computer name isnt already listed in the collection
                If Not pcList.Contains(dirSearchResults.GetDirectoryEntry().Name.ToString()) Then
                    '   5. Add the computer name to the collection (since it dont already exist)
                    pcList.Add(dirSearchResults.GetDirectoryEntry().Name.ToString())
                End If
            Next
            '   6. Return the results
            Return pcList

    J'obtiens une erreur sur la boucle For each

    Une exception non gérée du type 'System.DirectoryServices.DirectoryServicesCOMException' s'est produite dans System.DirectoryServices.dll

    A priori, la connexion semble bien se faire (pas d'erreur)

    Cordialement,


    H.Sabatou

    mardi 12 avril 2016 12:09
  • Bonjour,

    Je n'ai plus de message d'erreur.

    J'avais une erreur dans la définition de la chaine de connexion LDAP

    Merci Teodora


    H.Sabatou

    mercredi 13 avril 2016 07:42