AutoIt Français

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

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

 

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