[VBS] Création répertoire avec Propriétaire
Bonjour à tous !
Je réalise actuellement un script VBS qui créer un utilisateur dans un Active Directory (dans des OU etc..).
Ensuite je créer un HOMEDIR pour cette personne, j'arrive à créer le répertoire, mais pas mettre le nouvel compteur en tant que propriétaire.
Je veux qu'il est tous les droits, exepté Controle Total.
Voici mon code à ce jour pour la partie création du homedir.
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Private Function createHomeDire(strCN)
Dim OFS, MonDossier
Set OFS = CreateObject("Scripting.FileSystemObject")
'Si le dossier n'existe pas, création du répertoire
If Not (OFS.FolderExists("c:\homedire\" & strCN)) Then
Set OFS = CreateObject("Scripting.FileSystemObject")
Set MonDossier = OFS.CreateFolder("c:\homedire\" & strCN)
Else
wscript.echo "le dossier existe déjà"
End If
End Function |
D'avance merci pour votre aide.
Steven