Script – Permissão em pasta

‘ Script – Permissão em pasta
Option Explicit
Dim strCaminho,strPasta,strGrupoLer,strGrupoMod,strGrupoFull
Dim strFolder,WshShell,WshNetwork
strCaminho = InputBox("Coloque o Caminho da Pasta" & _
    vbCrLf & "(Ex.:  " & "C:\pasta" & ")", , "C:\Pasta")
If strCaminho = "" Then WScript.Quit(1)    
strPasta = InputBox("Coloque o nome da Pasta" & _
    vbCrLf & "(Ex.:  " & "Pasta" & ")", , "Pasta")
If strPasta= "" Then WScript.Quit(1)    
strGrupoLer = InputBox("Coloque o nome do Grupo para Permissão de Leitura" & _
    vbCrLf & "(Ex.:  " & "Dominio\GrupoA" & ")", , "GrupoA")
If strGrupoLer = "" Then WScript.Quit(1)    
strGrupoMod = InputBox("Coloque o nome do Grupo para Permissão de Modificar" & _
    vbCrLf & "(Ex.:  " & "Dominio\GrupoB" & ")", , "GrupoB")
If strGrupoMod = "" Then WScript.Quit(1)    
strGrupoFull = InputBox("Coloque o nome do Grupo para Permissão Full" & _
    vbCrLf & "(Ex.:  " & "Dominio\GrupoC" & ")", , "GrupoC")
If strGrupoFull = "" Then WScript.Quit(1)    
Set strFolder = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network") 
Set WshShell=CreateObject("Wscript.Shell")
If strFolder.FolderExists (strCaminho & "\" & strPasta) = False Then
   strFolder.CreateFolder (strCaminho & "\" & strPasta)
End If
WshShell.Run "CACLS " & strCaminho & "\" & strPasta & " /E /c /G "& strGrupoLer  &":R"
WshShell.Run "CACLS " & strCaminho & "\" & strPasta & " /E /c /G "& strGrupoMod  &":C"
WshShell.Run "CACLS " & strCaminho & "\" & strPasta & " /E /c /G "& strGrupoFull  &":F"

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s