1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| Dim INV_Folder, strHome, strUser
Dim intRunError, objShell, objFSO
DIFFUSION_Folder = "c:\DIFFUSION"
INV_Folder = "c:\DIFFUSION\INV"
DRH_Folder = "c:\DIFFUSION\DRH"
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
SmartCreateFolder INV_Folder ' Creation de l'arborecence des dossiers
SmartCreateFolder DRH_Folder
If objFSO.FolderExists(INV_Folder) Then
'''''''''''''''''''''''''''''''''''''''''''''
'ATTRIBUTION DES DROITS D'ACCES ''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''
'Permission de Lecture Seule pour l'utilisateur en cours sur le sous-dossier "c:\DIFFUSION\INV"
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME")
NomUtilisateur = ProcessEnv("USERNAME")
Command = "%COMSPEC% /C Echo o| cacls " & INV_Folder & " /g " & qq(NomUtilisateur) & ":r"
intRunError = objShell.Run(Command,0,True)
If intRunError <> 0 Then
MsgBox "Permission du l'utilisateur " & qq(NomUtilisateur) & " dans le dossier " & qq(INV_Folder) & " est non fait",16,"Permission sur le dossier non fait"
else
MsgBox "Permission du l'utilisateur " & qq(NomUtilisateur) & " dans le dossier " & qq(INV_Folder) & " est effecuté avec succées :(Lecture Seule)!",64,"Permission dans le dossier " & qq(INV_Folder) & " effectuée avec succées :(Lecture Seule) !"
End If
End If
'Permission d'accés Refusé pour l'utilisateur en cours sur le sous-dossier "c:\DIFFUSION\DRH"
If objFSO.FolderExists(DRH_Folder) Then
Command = "%COMSPEC% /C Echo o| cacls " & DRH_Folder & " /p " & qq(NomUtilisateur) & ":n"
intRunError = objShell.Run(Command,0,True)
If intRunError <> 0 Then
MsgBox "Permission du l'utilisateur " & qq(NomUtilisateur) & " dans le dossier " & qq(DRH_Folder) & " est non fait",16,"Permission sur le dossier non fait"
else
MsgBox "Permission du l'utilisateur " & qq(NomUtilisateur) & " dans le dossier " & qq(DRH_Folder) & " est effecuté avec succées :(Lecture Seule)!",64,"Permission dans le dossier " & qq(DRH_Folder) & " effectuée avec succées : (Accées Refusé) !"
End If
End If
'Permission de Lecture Seule pour l'utilisateur en cours sur le sous-dossier "C:\DIFFUSION"
If objFSO.FolderExists(DIFFUSION_Folder) Then
Command = "%COMSPEC% /C Echo o| cacls " & DIFFUSION_Folder & " /g " & qq(NomUtilisateur) & ":r"
intRunError = objShell.Run(Command,0,True)
If intRunError <> 0 Then
MsgBox "Permission du l'utilisateur " & qq(NomUtilisateur) & " dans le dossier " & qq(DIFFUSION_Folder) & " est non fait",16,"Permission sur le dossier non fait"
else
MsgBox "Permission du l'utilisateur " & qq(NomUtilisateur) & " dans le dossier " & qq(DIFFUSION_Folder) & " est effecuté avec succées :(Lecture Seule)!",64,"Permission dans le dossier " & qq(DIFFUSION_Folder) & " effectuée avec succées : (Lecture Seule) !"
End If
End If
Sub SmartCreateFolder(strFolder)
Dim oFSO:Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FolderExists(strFolder) Then
Exit Sub
Else
SmartCreateFolder(oFSO.GetParentFolderName(strFolder))
End If
oFSO.CreateFolder(strFolder)
Set oFSO = Nothing
End Sub
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function |
Partager