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

VBScript Discussion :

Script de création d'un utilisateur dans AD


Sujet :

VBScript

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mai 2010
    Messages
    31
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Mai 2010
    Messages : 31
    Par défaut Script de création d'un utilisateur dans AD
    Bonjour,
    Je suis bloqué depuis deux jours, j'ai créé un script pour ajouter des utilisateurs à partir d'un fichier csv mais celui - ci me met cette erreur à l'exécution:



    voici mon code (problème ligne 50) je ne vois pas comment faire

    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
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    ' Script VBScript pour la mise en place structurelle de l'entreprise X sous Active Directory
     
    Option Explicit ' Force les variables à être définies
     
    ' Définition des variables
    Dim Objet_Doss_Part, Objet_Part_Res, Objet_Secu_NTFS
    Dim Objet_Domaine_OU, Objet_OU
    Dim Objet_Domaine_Groupe, Objet_Groupe
    Dim Num_Ligne_CSV, Fich_CSV_Entree, Objet_Fich, CSV_Util, Ligne, Colonne
    Dim Prenom, Nom, Nom_Session_Util, MDP, OU_CSV, Groupe_CSV, ok11
    Dim Objet_Connex_LDAP
    Dim Utilisateur, Groupe
     
    'On Error Resume Next ' Dès qu'une erreur est rencontrée, le programme ne se plante pas mais continue son exécution
     
     
     
    Const Domaine = "@X.local" ' Domaine
    Const Separateur_CSV = ";" ' Caractère séparateur dans le CSV
     
    ' Fichier CSV
    Fich_CSV_Entree = "Utilisateurs.csv"
    Num_Ligne_CSV = 0
     
    Set Objet_Fich = CreateObject("Scripting.FileSystemObject")
    Set CSV_Util = Objet_Fich.OpenTextFile(Fich_CSV_Entree, 1) ' Ouverture du fichier CSV en lecture seule
     
    Do Until CSV_Util.AtEndOfStream ' Tant que le fichier n'est pas parcouru
    	Ligne = CSV_Util.ReadLine ' Lecture de chaque ligne
    	Colonne = Split(Ligne, Separateur_CSV) ' Découpage des données en fonction du séparateur
    	Num_Ligne_CSV = Num_Ligne_CSV + 1 ' Compte le nombre de lignes
     
    	Prenom = Trim(Colonne(0)) ' Prénom
    	Nom = Trim(Colonne(1)) ' Nom
    	Nom_Session_Util = Trim(Colonne(2)) ' Nom d'ouverture de session de l'utilisateur
    	MDP = Trim(Colonne(3)) ' Mot de passe
    	OU_CSV = Trim(Colonne(4)) ' Unité d'organisation
    	Groupe_CSV = Trim(Colonne(5)) ' Groupe
     
    	Set Objet_Connex_LDAP = GetObject("LDAP://OU=" & OU_CSV & ",OU=X,DC=X,DC=local") ' Connexion à l'annuaire Active Directory
     
    	' Création de l'utilisateur dans Active Directory
    	Set Utilisateur = Objet_Connex_LDAP.Create("user", "CN=" & Prenom & " " & Nom) ' Nouvel objet - utilisateur
    	Utilisateur.Put "givenName", Prenom ' Prénom
    	Utilisateur.Put "sn", Nom ' Nom
    	Utilisateur.Put "displayName", Prenom & " " & Nom ' Nom complet
    	Utilisateur.Put "UserPrincipalName",  Nom_Session_Util & Domaine ' Nom d'ouverture de session de l'utilisateur
    	Utilisateur.Put "sAMAccountName", Nom_Session_Util ' Nom d'ouverture de session de l'utilisateur (antérieur à Windows 2000)
     
    	Utilisateur.SetInfo ' Confirmer les informations
     
    	Utilisateur.SetPassword MDP ' Mot de passe
    	Utilisateur.AccountDisabled = FALSE ' Le compte n'est pas désactivé
    	Utilisateur.Put "pwdLastSet", 0 ' L'utilisateur doit changer le mot de passe à la prochaine ouverture de session
    	Utilisateur.SetInfo ' Confirmer les informations utilisateur
     
    	Utilisateur.Put "profilePath", "\\SERVEURS\Profils\%USERNAME%" ' Chemin du profil
    	Utilisateur.SetInfo ' Confirmer les informations utilisateur
     
    	' Ajout de l'utilisateur au groupe
    	Set Groupe = GetObject("LDAP://CN=" & Groupe_CSV & ",OU=" & OU_CSV & ",OU=X,DC=X,DC=local") 
    	Groupe.Add "LDAP://CN=" & Prenom & " " & Nom & ",OU=" & OU_CSV & ",DC=X,DC=local"
     
    	Set objet_Connex_LDAP = Nothing ' Retrait de l'objet en mémoire
    Loop
     
    WScript.Echo "L'opération s'est correctement terminée. " & "La création de " & Num_Ligne_CSV & " utilisateur(s) s'est achevée avec succès."
     
    CSV_Util.Close ' Fermeture du fichier CSV
     
    Set Objet_Fich = Nothing
    Set CSV_Util = Nothing
    Merci d'avance
    Bonne fin d'après midi
    Images attachées Images attachées  

Discussions similaires

  1. Réponses: 12
    Dernier message: 02/02/2013, 00h14
  2. Scipts création d'un utilisateur dans active directory ?
    Par soufiane2102 dans le forum Windows Serveur
    Réponses: 1
    Dernier message: 21/06/2012, 14h44
  3. script remonter une propriété du utilisateur dans L'AD
    Par Scriptman dans le forum VBScript
    Réponses: 0
    Dernier message: 19/01/2010, 16h08
  4. Réponses: 3
    Dernier message: 19/04/2006, 18h44
  5. sauver script de création de table temporaire dans la base
    Par Bruno75 dans le forum MS SQL Server
    Réponses: 7
    Dernier message: 31/10/2005, 17h09

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