m--o | Bonjour, alors voici mon problème, j'ai utilisé un script que j'ai trouvé pour créer des utilisateurs dans l'AD par lot avec un fichier texte.
Il marche, mais y a juste un blem avec le homefolder (à la ligne 112). Dans les propriétés de l'utilisateur, le chemin du homefolder est bien là et est correct, mais le dossier n'est pas créé.
Quand j'ajoute un espace, que je le retire, et que je fais ok, le dossier est crée... Plutôt bizarre Vous avez une idée ?
Merci
Code :
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Script pour créer les utilisateurs dans Active Directory
- '
- ' Ce script lit et attribut les noms d'utilisateurs du fichier appelé users.txt
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- wscript.echo "Le script commence. Cliquez OK pour continuer."
- DIM arrRecord
- Const ForReading = 1
- ''''''''''''''''''''''''''''''''''''''''''''''''
- ' Determine le chemin LDAP de votre domaine
- ' Rien dans cette partie ne doit etre changé
- ''''''''''''''''''''''''''''''''''''''''''''''''
- Set Root = GetObject("LDAP://RootDSE" )
- DomainPath = Root.Get("DefaultNamingContext" )
- ''''''''''''''''''''''''''''''''''''''''''''''''
- ' Obtenez l'indicateur à votre objet de domaine
- ' Rien dans cette partie ne doit etre changé
- ''''''''''''''''''''''''''''''''''''''''''''''''
- Set Domain = GetObject("LDAP://" & DomainPath)
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Pour indiquer l'OU où mettre les utilisateurs
- '
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Set ou_HR = GetObject("LDAP://OU=etudiants, " & DomainPath)
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' L'objet du fichier systeme est votre point d'entrée dans le fichier système
- ' Rien dans cette partie ne doit etre changé
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- set fso = CreateObject ("Scripting.FileSystemObject" )
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Pour retrouver le fichier texte dans C:\ADSI\users.txt
- ' Le nom et l'emplacement peuvent etre modifiés
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Set tsTextFile = fso.OpenTextFile ("C:\etudiants.txt", ForReading, False)
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Commence à lire le fichier rentré, début de la boucle
- '
- ' Lit une ligne du fichier
- '
- ' Rien dans cette partie ne doit etre changé
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- While Not tsTextFile.AtEndOfStream ' START OF LOOP
- strRecord = tsTextFile.ReadLine
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Découpe la ligne en plusieurs segments délimités par le délimiteur spécifié
- ' (Vous pouvez changer le délimiteur)
- ' mettre chaque segment dans une rangée nommée arrRecord
- ' Le premier segment est référencé par arrRecord(0)
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- arrRecord = Split (strRecord, ":" )
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Création de l'utilisateur dans l'OU
- ' Rien dans cette partie ne doit etre changé
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Set adsUser = ou_HR.Create("user", "CN=" & arrRecord(2))
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Définit les sAMAccountName et userPrincipalName
- ' attribués pour chaque utilisateur
- ' Rien dans cette partie ne doit etre changé
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- adsUser.Put "sAMAccountName", arrRecord(2)
- adsUser.Put "userPrincipalName", arrRecord(2)
- adsUser.SetInfo
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Active le compte qui est désactivé par défaut
- '
- ' Rajoute les attributs aditionnés listés dans le fichier texte
- '
- ' Dans cet exemple, l'attribut de description sera
- ' rempli dans le second (1) segment
- ' et l'attribut du nom affiché est pris du troisième
- ' (2) segment
- '
- ' Changez cette partie d'attributs add/change
- ' rentrés dans le fichier texte
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''
- adsUser.AccountDisabled = False
- adsUser.sn = arrRecord(0)
- adsUser.GivenName = arrRecord(1)
- adsUser.homeDirectory = "\\SERVERVM\homedir\" & arrRecord(2)
- adsUser.homeDrive = "G:"
- '''''''''''''''''''''''''''''''''''''''''''''''''
- ' SetInfo flushes the attributes in cache to disk
- ' Rien dans cette partie ne doit etre changé
- '''''''''''''''''''''''''''''''''''''''''''''''''
- adsUser.SetInfo
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Efface adsUser pour le prochain utilisateur
- ' Rien dans cette partie ne doit etre changé
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''
- Set adsUser = Nothing
- Wend ' END OF LOOP
- ''''''''''''''''''''''''''''''''''''''''''''''''
- ' Ferme le fichier texte
- ' Rien dans cette partie ne doit etre changé
- ''''''''''''''''''''''''''''''''''''''''''''''''
- tsTextFile.Close
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- ' Boite de dialogue finie
- ' Rien dans cette partie ne doit etre changé
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- wscript.echo "Utilisateurs créés.", Chr(10),Chr(10),"Cliquez pour finir."
|
Message édité par m--o le 29-05-2009 à 11:30:22
|