Любой язык

amel27 · Отправлено: **10:43, 23-11-2009** | #2

Цитата YDen:

xcacls \\server2\Shared_folder$\%username% /t /c /g Domain\%username%:c /y
rem назначаем для пользователя на папку разрешения Change »

а не проще дать нужные права на корень учетке "CREATOR OWNER"?.. тогда пользователь при создании будет сразу получать нужные права на свою папку

alecsandrb · Отправлено: **07:12, 30-11-2009** | #3

Попробуй проверить такой код

Код:

  

Set objWshNetwork = CreateObject( "WScript.Network" )
UsersFolderName = ucase((objNetwork.UserName))

' создаем папку пользователя, проверяя если она есть то идем дальше
     FolderUser = "\\server2\Shared_folder\school\" + UsersFolderName
     Set objFld1 = CreateObject("Scripting.FileSystemObject")
     If objFld1.FolderExists(FolderUser) Then
     Else
        ' если папки нет то создаем ее и назначаем права  
         Set objFolder1 = objFld1.CreateFolder(FolderUser)
        ' формируем строку с назначением прав на личную папку
         StrCmdRightUsers = "xcacls.exe " + FolderUser + " /g ""DOMAIN ADMINS"":F System:f " + UsersFolderName + ":с /y "
         RetVal = WshShell.Run("%COMSPEC% /c " & StrCmdRightUsers, 1, False) 
      End If


Set objShell = CreateObject("Shell.Application")

MapDrive "U:", FolderUser, "Пользовательский"
MapDrive "S:", "\\server2\Shared_folder\school\school", "Общий"

Sub MapDrive(strDrive, strPath, strName)
On Error Resume Next
objWshNetwork.RemoveNetworkDrive strDrive, vbTrue, vbTrue
objWshNetwork.MapNetworkDrive strDrive, strPath, vbTrue
objShell.NameSpace(strDrive).Self.Name = strName
End Sub

xcacls должен лежать в той же папке откуда скрипт запускаешь

nvhost · Отправлено: **06:37, 27-07-2010** | #4

пишет требуется objNetwork, при исполнении последнего скрипта,как быть?

Iska · Отправлено: **14:25, 27-07-2010** | #5

Код:

Set objWshNetwork = CreateObject( "WScript.Network" )
UsersFolderName = ucase((objWshNetwork.UserName))
…

nvhost · Отправлено: **06:12, 28-07-2010** | #6

понял,щас исправлю

nvhost · Отправлено: **10:00, 28-07-2010** | #7

а как создать папку пользователя от имени админа?Надо сделать так чтобы другие юзеры не могли попасть в папку, а то при создании userfolder берет права родителя

nvhost · Отправлено: **13:30, 30-07-2010** | #8

Ребят подскажите как это сделать,никто не знает???Скрипт почему то исполняется только при входе в терминал......как сделать чтоб при входе в домен?

NiOl · Отправлено: **15:29, 30-07-2010** | #9

1.

Цитата nvhost:

а как создать папку пользователя от имени админа?Надо сделать так чтобы другие юзеры не могли попасть в папку, а то при создании userfolder берет права родителя »

Совершенно не знаю VB (и не очень спешу его знать

), но думаю достаточно в строке

Цитата alecsandrb:

StrCmdRightUsers = "xcacls.exe " + FolderUser + " /g ""DOMAIN ADMINS"":F System:f " + UsersFolderName + ":с /y " »

надо добавить User:F (можно впихнуть между "доменными админами" и "системой"), правда из соображений безопасности "доменных админов" тут быть вообще не должно, а должна с разрешением по чтению быть учетка, которой делигированы права на бэкап пользовательских данных.
2. Имя учетки пользователя (здесь указана как User) можно взять из переменной %UserName%, особенно если скрипт запускается при входе пользователя в систему - в домене он (скрипт) должен прописываться в GPO не в "Computer configuration => Windows settings => Scripts", а в "User configuration => Windows settings => Scripts"

nvhost · Отправлено: **08:30, 31-07-2010** | #10

впихнул,но ни каких изменений не увидел......может вы меня не так поняли, есть папка users есть два пользователя user1 и user2 права на папку users у пользователей домена стоит,полный доступ, иначе с ограниченными правами при выполнении скрипта вылазиет ошибка,а надо чтоб в users создалась папка user1 и пользователь имел права только на эту папку,ни в папку users ни в папку user2 пользователь user1 не мог войти