Создание личной папки юзера AD

[Gremchik]

Добрый день.

Столкнулся со следующей проблемой и хотел бы проконсультироваться.
Юзеров в АД более 100, нужно создать личную папку с именем каждого из этих юзеров с полными правами доступа к ней.
Либо, чтобы при создании юзера, автоматически создавалась папка с его именем и правами доступа.

На данный момент реализована следующая схема: Папка на сервере создается вручную с необходимыми правами доступа. Затем при логине юзера на клиентской машине срабатывает скрипт, который монтирует папку как сетевой диск.


On Error Resume Next

Set objShell = CreateObject("Shell.Application")
Set wshNetwork = WScript.CreateObject("WScript.Network")
Set objwshNetwork = CreateObject("WScript.Network")

username=wshNetwork.Username

MapDrive "Z:", "\\Server\tasks$", "Задания"
MapDrive "T:", "\\Server\Users$\"&username, ""&username

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

Заранее спасибо за ответ.

[cameron]

используйте GPP в 2 шага
1. создание папки
2. маппинг папки

так как GPP работает синхронно, то при первом логоне создастся папка, при втором она примапится.

[El Scorpio]

Папка на сервере создается вручную с необходимыми правами доступа. Затем при логине юзера на клиентской машине срабатывает скрипт, который монтирует папку как сетевой диск. »
Предлагаю добавить в скрипт команды, которые:
1. Проверяют наличие каталога в сетевом ресурсе
2. Создают каталог (права ресурса должны позволять пользователям создание каталогов)
3. Изменяют права каталога нужным образом

"А дальше - старым способом" :)