aide pour script sur droits sur répertoire

Question

Bonjour j'ai créer un script qui crée des utilisateurs en utilisant un fichier excel. Il crée les uo et sous uo et place les utilisateurs dans les groupes associés. Un autre script se chartge de créer les dossiers en association avec chaque utilisateur et j'aimerais qu'il change les droits de ce dossier en ajoutant l'utilisateur correspondant en accés total. sauf qu'il n'arrive pas à trouver l'utilisateur : mon script : ' CaclsExcel.vbs ' Example VBScript to set Cacls ' Version 2.4 - September 2010 ' ---------------------------------------------------------' Option Explicit Dim intRow, objExcel, objSheet, strPathExcel Dim strHomeFolder, strHome Dim objFSO, objShell, intRunError ' Note you will have to amend the following variables strHome = "\SERVER-LOLO\partage serveur" strPathExcel = "C:\Users\Administrateur\Desktop\créa util\ComptesUtilisateurs.xls" intRow = 2 ' Row 1 contains headings ' Open the Excel spreadsheet Set objFSO = CreateObject("Scripting.FileSystemObject") Set objExcel = CreateObject("Excel.Application") Set objSheet = objExcel.Workbooks.Open(strPathExcel) ' Create a shell for cmd and CACLS Set objShell = CreateObject("Wscript.Shell") ' Here is the loop that cycles through the cells Do Until (objExcel.Cells(intRow,1).Value) = "" intOu = oexapp.cells(intRow,8).value nom = oexapp.cells(intRow,1).value set strUser = GetObject("LDAP:// CN=" & nom & ",OU=" & intOu & ", OU=LOLO,dc=domaine01, dc=enc") call HomeDir ' I decided to use a subroutine intRow = intRow + 1 Loop objExcel.Quit ' Clears up Excel Sub HomeDir() strHomeFolder = strHome & nom If strHomeFolder <> "" Then If Not objFSO.FolderExists(strHomeFolder) Then On Error Resume Next objFSO.CreateFolder strHomeFolder If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Cannot create: " & strHomeFolder End If On Error GoTo 0 End If If objFSO.FolderExists(strHomeFolder) Then ' Assign user permission to home folder. intRunError = objShell.Run ("%COMSPEC% /c Echo Y| icacls " _ & strHomeFolder & " /t /c /g Administrators:F ", 2, True) intRunError1 = objShell.Run ("%COMSPEC% /c Echo Y| cacls " _ & strHomeFolder & " /t /c /g" & strUser & ":F", 2, True) If intRunError <> 0 Then Wscript.Echo "Error assigning permissions for user " _ & strUser & " to home folder " & strHomeFolder End If End If End If End Sub objExcel.Quit WScript.Quit ' End of Cacls example VBScript voila dibc je pense que la variable strUser est pas bonne car mes utilisateurs sont dans un groupe appartanant à une sous UO.

cs_fire90 · Answer

je me suis mal exprimé voila ce que j'aimerais faire : 

je souhaite modifier les droits sur un dossier avec la commande cacls sur windows server 2003.
Seulement mon utilisateur est dans une sous uo
Uoprincipale : Lolo
sous uo : direction
groupe : direction
utilisateur: nom utilisateur

comment faire pour donner le droit a "nom utilisateur" sur un dossier partagé du serveur avec la commande cacls?

merci de vos réponses

Aide pour script sur droits sur répertoire

1 réponse

Votre réponse

Discussions similaires