Скрипты для разрешений безопасности

Question

Я хочу написать два скрипта, они могут быть командами VBS или MS-DOS.

Во-первых, необходимо задать права пользователя для папки (эквивалент: щелкнуть правой кнопкой мыши папку, свойства, безопасность, изменить, добавить, NT AUTHORITY\NETWORK SERVICE).

Во-вторых, установить разрешение для запуска в качестве службы, эквивалентный щелчок клика: Control Panel / Administrative Tools / Local Security Policy; левая сторона: Local Policies / User Rights Assignment; правая сторона: Log on as a service -> add Network Service как пользователь с правами.

Кто-нибудь поможет мне сделать это, пожалуйста?

Answer 1

MS DOS команды:

Разрешение папки:

CACLS path_of_folder /E /T /C /G "userName":F

подробности команды cacls

Войдите в систему как сервисное разрешение:

ntrights -u "userName" +r SeServiceLogonRight

подробности команды ntrights

Answer 2

Это так расстраивает, что у нас нет инструмента ntrights для Windows Server 2008 и выше.Я поднял VBScript, который работает.

Username = <domain\username>
Dim oShell 
Set oShell = CreateObject ("WScript.Shell")
oShell.Run "secedit /export /cfg config.inf", 0, true 
oShell.Run "secedit /import /cfg config.inf /db database.sdb", 0, true

FileName = "config.inf"
OrgStr = "SeServiceLogonRight ="
RepStr = "SeServiceLogonRight = " & Username & ","
Set inputFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("config.inf", 1,1,-1)
strInputFile = inputFile.ReadAll
inputFile.Close
Set inputFile = Nothing

Set outputFile =   CreateObject("Scripting.FileSystemObject").OpenTextFile("config.inf",2,1,-1)
outputFile.Write (Replace(strInputFile,OrgStr,RepStr))
outputFile.Close
Set outputFile = Nothing

oShell.Run "secedit /configure /db database.sdb /cfg config.inf",0,true
set oShell= Nothing

Set obj = CreateObject("Scripting.FileSystemObject")
obj.DeleteFile("config.inf") 
obj.DeleteFile("database.sdb")