From c9505b39d46078b2db92dfb41304cfbaeb5223ac Mon Sep 17 00:00:00 2001
From: Emerson Piana Costa <epiana@ifes.edu.br>
Date: Tue, 12 Dec 2017 12:41:41 -0200
Subject: [PATCH] Corrigido para a ultima atualização utilizada em Guarapari

---
 SetPermissions.hta | 53 ++++++++++-------------------------------------------
 1 file changed, 10 insertions(+), 43 deletions(-)

diff --git a/SetPermissions.hta b/SetPermissions.hta
index bc4e38d..32b9a0c 100644
--- a/SetPermissions.hta
+++ b/SetPermissions.hta
@@ -40,9 +40,8 @@ font-weight: bold;
 </HEAD>
   
 <SCRIPT LANGUAGE="VBScript">
-  Dim fso, oFile  
-      'Set fso = CreateObject("Scripting.FileSystemObject")
-	  Set objFSO = CreateObject("Scripting.FileSystemObject")
+  Dim fso, oFile
+      Set fso = CreateObject("Scripting.FileSystemObject")
       Set objShell = CreateObject("WScript.Shell") 
 	  
     Sub Window_Onload
@@ -87,44 +86,13 @@ font-weight: bold;
 	
 	'<!--#######################[ Buttons Actions ]#######################-->
     Sub TestScript
-		strDirectory = "q:\"
 		strServer = AvailableServer.Value
 		strGroup = GroupName.Value
 		strPermission = right(strGroup,1)
 		strPermission = replace(strPermission, "L", "RX")
 		strPermission = ":" & strPermission
-		'MsgBox strPermission
 		strFolder = mid(strGroup, 7, len(strGroup) - 8)
 		strFolder = replace(strFolder, "-", "\")
-		'########separa "-" dos diretorios
-		'WrdArray = split(strFolder,"-")
-		'MsgBox WrdArray
-		'For nF = 0 To UBound(WrdArray)
-		'	strDirectory = "q:\AD"	
-		'	MsgBox WrdArray(nF)
-		'Next
-		'fim ########
-		
-		'cria pasta############
-		MsgBox strDirectory&strFolder
-		
-		If objFSO.FolderExists(strDirectory&strFolder) Then
-			Set objFolder = objFSO.GetFolder(strDirectory&strFolder)
-			MsgBox strFolder & " already created "
-		Else
-			Set objFolder = objFSO.CreateFolder(strDirectory&strFolder)
-			MsgBox "Just created " & strFolder
-		End If
-
-		If err.number = vbEmpty then
-			Set objShell = CreateObject("WScript.Shell")
-			objShell.run ("Explorer" &" " & strDirectory&strFolder & "\" )
-		Else 
-			MsgBox "VBScript Error: " & err.number
-		End If
-		'##################
-		
-		
 		
         MsgBox "You Selected:" & VBCRLF & _ 
 		"Server: " & strServer & VBCRLF & _
@@ -134,7 +102,6 @@ font-weight: bold;
 		
         sCMD=("%COMSPEC% /C Echo Y| icacls " & strServer & "\" & strFolder & " /t /c /grant " & strGroup & strPermission)  
         MsgBox sCMD, 64,"Debug Command Box"
-		
     End Sub 'TestScript
 	
     Sub EditServer
@@ -209,18 +176,18 @@ font-weight: bold;
 	Set objFSO = CreateObject("Scripting.FileSystemObject")
 	If objFSO.FolderExists(strServer & "\" & strShare & "\" & strFolder) Then
 
-		' definição de permissoes.
+		' definição de permissoes.
 			'Notes
-			'/t aplicar as permissões nas subpastas e arquivos a partir desta pasta
+			'/t aplicar as permissões nas subpastas e arquivos a partir desta pasta
 			'/c continua o script mesmo com erro
-			'/grant Administrators (Seta permissões para Administrators)
+			'/grant Administrators (Seta permissões para Administrators)
 			':F (para acesso full), :RX (Ler e Executar), :M (Modificar), :WD (Adiciona arquivos), :AD (Adiciona diretorios)  
 			'(OI) pasta e arquivos
 			'(CI) pasta e subpastas
 			'(IO) propaga apenas aos filhos
-			'(NP) não propaga aos filhos
+			'(NP) não propaga aos filhos
 
-		UpdateGroup 'Atualiza descrição do grupo
+		UpdateGroup 'Atualiza descrição do grupo
 
 			' define permissoes para a pasta base.
 		If strPermission = "F" Then
@@ -246,7 +213,7 @@ font-weight: bold;
 			'MsgBox "%COMSPEC% /C Echo Y| icacls " & strServer & "\" & strShare & "\" & strFolder & " /c /grant " & strGroup & ":" & strPermission , 48, "Attention" 
 		End If	'intRunError <> 0
 		
-		' define permissoes de leitura à pastas anteriores à pasta base.
+		' define permissoes de leitura à pastas anteriores à pasta base.
 		do while InStr(strFolder,"\") > 0 
 			'MsgBox "Folder " & VBCRLF & strServer & "\" & strShare & "\" & strFolder & VBCRLF & "possui pasta anterior" , 48, "Attention" 
 			strBeforeFolder = strBeforeFolder & mid(strFolder,1,InStr(strFolder,"\"))
@@ -276,13 +243,13 @@ font-weight: bold;
 }>">
 		<a name="Top"></a>
 		<CENTER>
-		<p>O nome do grupo deverá estar cadastrado no AD, e deverá existir o caminho de acordo com o nome do grupo.</p>
+		<p>O nome do grupo deverá estar cadastrado no AD, e deverá existir o caminho de acordo com o nome do grupo.</p>
 			<table border="0" cellpadding="0" cellspacing="0"><font size="2" color="black" face="Arial">
 			<tr>
 				<td height="30"><p align="right">Server</p></td>
 				<td height="45">&nbsp;&nbsp; <select size="1" name="AvailableServer" size="30"></select>&nbsp;&nbsp;<input type="button" value="Edit" onclick="EditServer">&nbsp;<input type="button" value="Reload" onclick="ReloadServer"></td></tr>
 			<tr>
-				<td height="30"><p align="right">Nome do grupo</p></td>
+				<td height="30"><p align="right">Group Name</p></td>
 				<td height="45">&nbsp;&nbsp; <input type="text" name="GroupName" size="45"></td></tr>
 			</table><BR>
 
--
libgit2 0.21.2