установить разрешения с помощью скрипта vbs

Question

У меня есть сценарий VBS, который загружает файл при входе в систему и помещает его в заданную папку. Он отлично работает в некоторых местах, но в других он падает, потому что файл был создан пользователем1, а user2 может Не перезаписывайте его.

Как бы я дал группе «Все» полный контроль над данным файлом с помощью сценария VBS?

Answer 1

Один из способов сделать это - использовать инструмент командной строки CACLS. Просто запустите его из своего скрипта, используя Shell.Run.

Вот еще link, чтобы узнать, как использовать CACLS с некоторыми образцами.

Answer 2

Что-то вроде этого:

Set WshShell = CreateObject("WScript.Shell") 
strFile = "c:\test_folder\test_file.txt" 
setPerms = "%COMSPEC% /c echo Y| C:\windows\system32\cacls.exe " & Chr(34) & strFile & Chr(34) & " /G domain\everyone:F" 

wscript.echo setPerms 
WshShell.run setPerms 

Частично почерпнутые здесь: http://social.technet.microsoft.com/forums/en-us/ITCG/thread/6CDA091A-6B3D-4F58-8374-9A46F59F389A

Answer 3

Функция giveFullPermissionToFolder (strFolder)

Dim objShell, strCmd, intRunError

Set objShell = CreateObject ("Wscript.Shell")

strCmd = "% comspec%/c echo Y | CACLS "& strFolder &"/T/E/C/G Пользователи: F»

intRunError = objShell.Run (strCmd, 2, Правда)

Если intRunError <> 0 Тогда

Reporter.ReportEvent micFail, "giveFullPermissionToFolder" , "Unable to give full permission to " & strFolder 

End If

Set objShell = Nothing

End Function