[R] Création repertoire + modification droit NTSF

[Yogui]

Je vais tenter d’être concis pour cette demande…

Nos utilisateurs travaillent sur des clients légers, Afin de simplifier la gestion des droits sur les imprimantes, les boites mails, les dossiers partagés, …. Nous venons de décider de ne plus créer de session nominative pour « revenir » à des sessions par poste.

Problème : dans la chartre informatique de notre site il est spécifié que chaque utilisateur à droit à un dossier personnel.

Je dois donc créer un script qui lors de son lancement vérifie si un répertoire nominatif existe sinon en faire un. Et surtout donner le droit total à cet utilisateur sur ce répertoire…

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Identification :", 395, 141, 193, 125)
$Inpname = GUICtrlCreateInput("", 240, 32, 121, 21)
$Inppwd = GUICtrlCreateInput("", 240, 64, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Lbluser = GUICtrlCreateLabel("Utilisateur : ", 160, 36, 59, 17)
$Lblpwd = GUICtrlCreateLabel("Mot de passe : ", 160, 68, 77, 17)
$Btnquit= GUICtrlCreateButton("Quitter", 304, 104, 75, 25, 0)
$Btnvalid = GUICtrlCreateButton("Valider", 224, 104, 75, 25, 0)
$Lbltext = GUICtrlCreateLabel("Merci de vous identifier Afin d'accèder à vos documents", 24, 32, 113, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                                   Exit
                        Case $Btnquit
                                   Exit
                        Case $Btnvalid
                                   $username = GUICtrlRead($Inpname)
                                   $password = GUICtrlRead($Inppwd)
    
                                   
                        RunAsWait($userName, "domaine", $Password, 0, DirCreate(@ScriptDir&"\"&$userName))
                        MsgBox(0,"repertoire perso","le repertoire perso pour "&$username&" à été créé")
                        
                        _funcdroitNTFS()


EndSwitch

func _funcdroitNTFS()

EndFunc
WEnd

[Yogui]

pour tenter d'étre claire je continue ici

pour modifier les droits NTFS mes recherches ont été tournées vers :

Regini.exe
xcacls
subinacl

j'ai aussi trouver

ce bout de code mais en VB :s

code d'attribution des droits :

wshShell.Run "xcacls " & diskM & Utilisateur & " /T /G ADMINPDCH:F ""OPAC\Admin W95"":F /Y",vbhide
wshShell.Run "xcacls " & diskM & Utilisateur & " /E /T /G " & Groupe & ":F /Y",vbhide

diskM est une variable qui contient le chemin du repertoire.

cacls est disponible ici(mais c'est du vbs)

je n'arrive pas à l'adapter pouvez vous m'aider ?

[sergio]

un exemple je verifie l'existence de dossiers en local s'il n'existe pas je crée le dossier et j'attribue des droits

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 Script Function:
    Création Répertoire s'il n'existe pas et réattribution des droits en modif sur le repertoire.

#ce ----------------------------------------------------------------------------

Opt("TrayIconHide", 1) 
Opt("TrayAutoPause",0)   
RunAsSet("user","domaine","pwd") 





;------------------------------- attribution des droits pour REFERENCE -----------------------------------------------

If FileExists("C:\SPECIAL") Then
    ;MsgBox(4096, "Informatique", "C:\SPECIAL\divers existe", 10)
    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\SPECIAL /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\SPECIAL\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        
        Else
    
    ;MsgBox(4096,"Informatique", "C:\SPECIAL\divers n'existe pas", 10)
    
EndIf


If FileExists("C:\TMP") Then
    ;FileRecycle("C:\TMP\*.*")
    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\TMP /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\TMP\* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        ;MsgBox(4096, "Informatique", "C:\TMP existe", 10)
Else
    DirCreate("C:\TMP")
    ;MsgBox(4096,"Informatique", "C:\TMP n'existe pas", 10)
    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\TMP /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\TMP\* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
EndIf
    

;------------------------------- attribution des droits pour Applis L et Oracle -----------------------------------------------

If FileExists("C:\maison") Then
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\maison /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\maison\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
EndIf

If FileExists("C:\oracle\ora81\network\ADMIN") Then
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\oracle\ora81\network\ADMIN /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\oracle\ora81\network\ADMIN\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
EndIf

If FileExists("C:\OraHome1\network\ADMIN") Then
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\OraHome1\network\ADMIN /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\OraHome1\network\ADMIN\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
EndIf

;------------------------------- attribution des droits pour L'application 1 -----------------------------------------------

If FileExists("C:\appli1") Then
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\appli1 /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\appli1\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
EndIf



;------------------------------- attribution des droits pour L'application 2 -----------------------------------------------

If FileExists("C:\appli2") Then
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\appli2 /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\appli2\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
     EndIf
     
;------------------------------- attribution des droits pour L'application 3 -----------------------------------------------

If FileExists("C:\appli3") Then
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\appli3 /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
        Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\appli3\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
EndIf

RunAsSet()

exit

 

[Yogui]

j'ai fini par faire ça

► Afficher le texte

Code : Tout sélectionner

func _funcdroitNTFS()
$batch = FileOpen("c:\user_group_rights.bat", 2)
FileWrite($batch, "Cscript.exe /h:cscript" & @CRLF)
FileWrite($batch, "c:\xcacls.vbs ")
FileWrite($batch, $Chemin)
FileWrite($batch, " " & "/e /g" & " " & "HMB\"&$userName & ":f /s /l \\srvinfo\_bat\vbs\xcacls.log"  &@CRLF)
FileWrite($batch, "exit")
FileClose($batch)

   RunAsWait($username,"HMB",$password,0,"c:\user_group_rights.bat")
EndFunc

sergio je regarde ton script de suite merci

[Serge63]

Bonjour à tous.

Je sais que cette discussion commence à dater mais je viens d'utiliser SubInAcl pour mon boulot et je me suis cassé les dents dessus pour arriver à faire quelque chose de correct.

Aussi, je tiens à apporter une précision sur le code donné par "sergio" :

Code : Tout sélectionner

    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\SPECIAL /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
    Run ("\\serveur\partage$\sub\subinacl.exe /subdirectories C:\SPECIAL\*.* /grant=Utilisateurs=C /setowner=Administrateurs",'\\serveur\partage$\sub\', @SW_HIDE)
 

Le premier SubInAcl modifie les autorisations uniquement sur le dossier et non sur son contenu. Le paramètre /subdirectories va faire parcourir toute l'arborescence mais sans apporter de modification aux fichiers et sous-dossiers.

Il vaut mieux remplacer le paramètre /subdirectories par /file. L'exécution sera plus rapide.

De plus, si vous voulez modifier les autorisations sur une partition, le paramètre /subdirectories ne modifiera pas les autorisations à la racine de cette partition. Le paramètre /file permet d'appliquer les autorisations sur la racine d'une partition.

Bonne journée
.