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 :

Active Directory - Copie d'utilisateur


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Inscrit en
    Octobre 2007
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Octobre 2007
    Messages : 2
    Par défaut Active Directory - Copie d'utilisateur
    Bonjour,

    Je suis confronté depuis une semaine à de gros problèmes en utilisant le DirectoryService de VB.Net. Pour faire court, voici ma procédure :p :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    Private Sub copieUser(ByRef userSRC As DirectoryEntry, ByVal newQuadri As String, ByVal newPrenom As String, ByVal newNom As String)
     
            Dim newUser As DirectoryEntry = userSRC.Parent.Children.Add("CN=" & newPrenom & " " & newNom.ToUpper, userSRC.SchemaClassName)
     
            'Définition des noms et prénom du nouvel utilisateur
            newUser.Properties("displayName").Add(newPrenom & " " & newNom.ToUpper)
            newUser.Properties("givenName").Add(newPrenom)
            newUser.Properties("sn").Add(newNom.ToUpper)
            newUser.Properties("userPrincipalName").Add(newQuadri) 'Nom
            newUser.Properties("SAMAccountName").Add(newQuadri)
     
            newUser.CommitChanges()
     
            'Création du mot de passe
            newUser.Invoke("SetPassword", New Object() {"12345678"})
     
            newUser.CommitChanges()
     
            'Groupes
            For Each objGroup As Object In userSRC.Properties("memberOf")
                newUser.Properties("memberOf").Add(objGroup)
            Next
     
            'Activation du compte de l'utilisateur
            newUser.Properties("userAccountControl").Value = ADS_UF_NORMAL_ACCOUNT
     
            newUser.CommitChanges()
     
        End Sub
    Mon problème se situe au niveau de la copie des groupes dans lequel l'utilisateur doit être :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    'Groupes
            For Each objGroup As Object In userSRC.Properties("memberOf")
                newUser.Properties("memberOf").Add(objGroup)
            Next
    A priori, ça à l'air chouette, mais : "Le server ne souhaite pas traiter la requête (HRESULT : 0x80072035)"

    J'ai tester déja pas mal de choses, sans succès. Quelqu'un a-t-il déja fait face à ce cas de figure ?

  2. #2
    Membre expérimenté
    Inscrit en
    Novembre 2006
    Messages
    337
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 337
    Par défaut
    Je ne vais pas t'apporter de reponse malheureusement, mais je souhaite savoir ce qu'est cencé faire ton programme.
    Je suis cencé faire un programme qui travail sur un active directory et je cherche des codes pouvant m'aider.. Si tu a une adresse de tuto ou des codes pouvant m'aider. Je te serrais reconnaissant de me le faire savoir (tu peut me mp en cas de besoin)..
    Merci d'avance et bonne chance.

  3. #3
    Nouveau candidat au Club
    Inscrit en
    Octobre 2007
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Octobre 2007
    Messages : 2
    Par défaut
    Voila dans les grandes lignes ce que mon outils fait (ou doit faire :p) :

    • L'utilisateur indique le nom et le prénom de l'utilisateur à créé
    • L'utilisateur indique, dans une liste remplit à partir de l'annuaire Active Directory, l'utilisateur à partir duquel son profil doit être copié
    • L'outils crée un ID d'utilisateur (composé de 4 lettres) et vérifie s'il est disponible dans l'annuaire
    • L'outils crée le répertoire personnel de l'utilisateur sur le server NAS
    • L'outils devra copier l'entrée source d'une façon ou d'une autre pour que le nouvel utilisateur dispose des mêmes droits d'accès (en d'autres termes, qu'il est ajouter dans les même groupe que l'utilisateur source)


    La procédure que j'ai fournit doit s'occuper du dernier point.

    Sinon, quelques adresses qui pourront t'être utile (tout en anglais malheureusement) :

    http://www.rlmueller.net/ADOSearchTips.htm
    http://www.microsoft.com/technet/scr....mspx?mfr=true
    http://msdn2.microsoft.com/en-us/library/ms683980.aspx

    Autrement tu as le tutorial sur developpez.net :
    http://morpheus.developpez.com/addotnet/ADVBNET/

    En esperant que cela t'éclairera .

  4. #4
    Membre expérimenté
    Inscrit en
    Novembre 2006
    Messages
    337
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 337
    Par défaut
    Merci bien en esperant que tu trouve ta solution, je vais regarder ces codes..
    bonne chance

Discussions similaires

  1. LDAP Active directory récupérer les utilisateurs d'un groupe
    Par *alexandre* dans le forum API standards et tierces
    Réponses: 4
    Dernier message: 19/01/2012, 09h58
  2. Active directory/LDAP - Affectation utilisateurs dans groupes
    Par SuperPat dans le forum API standards et tierces
    Réponses: 2
    Dernier message: 24/04/2008, 17h26
  3. Réponses: 3
    Dernier message: 06/11/2007, 09h29
  4. Réponses: 3
    Dernier message: 17/10/2007, 10h14
  5. Active Directory : Supprimer un utilisateur
    Par marcusien dans le forum Windows Forms
    Réponses: 2
    Dernier message: 04/09/2007, 18h02

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