alecsandrb
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
' Создание пользовательских папок при логоне пользователя
' раздаются права для доступа к личным папкам пользователей
' принцип: Domain Admins - full,
' User - Full (only on personal folder),
' System - full,
' определение текущего UserName
Set WshShell = CreateObject("Wscript.Shell")
UsersFolderName = WshShell.ExpandEnvironmentStrings("%username%")
' создаем папку пользователя
FolderUser = "\\имя сервера\имя шары\" + UsersFolderName
Set objFld1 = CreateObject("Scripting.FileSystemObject")
If objFld1.FolderExists(FolderUser) Then
Else
Set objFolder1 = objFld1.CreateFolder(FolderUser)
' формируем строку с назначением прав на личную папку
' положи xcacls.exe в папку со скриптом или укажи к нему полный путь в команде
StrCmdRightUsers = "xcacls.exe " + FolderUser + " /g ""DOMAIN ADMINS"":F System:f " + UsersFolderName + ":f /y "
RetVal = WshShell.Run("%COMSPEC% /c " & StrCmdRightUsers, 1, False)
End If
' аналогично можешь создать нужные тебе подпапки внутри уже созданной
' для пользователя папки
|
