Создание личной папки, при создании профиля

[Tele2]

Возможно ли такое, если контроллер домена, так же является файловым сервером? И как сделать?

[Tele2]

Сделайте перемещаемые профили.

[monkkey]

Сделайте с помощью политики перенаправление папки мои документы с созданием папки по каждому пользователю.

[GreenIce]

Профили пользователей на на другом логическом диске

взгляните.

[monkkey]

Думаю, тут речь идет о создании так называемой домашней папке одновременно с созданием учетной записи. Т.е. чтобы не вручную через AD заносить все данные, а задать через скрипт только имя, а на выходе получить уже настроенную учетную запись пользователя.

Вот небольшой скрипт, который можно взять за основу:

Option Explicit



Const WAIT_ON_RETURN = True

Const HIDE_WINDOW = 0

Const USER_ROOT_UNC = "\\dc1\users" 'Set Home Folder Location Here



Dim WshShell, WshNetwork, objFS, objServer, objShare



Set WshShell = Wscript.CreateObject("Wscript.Shell")

Set WshNetwork = WScript.CreateObject("WScript.Network")

Set objFS = CreateObject("Scripting.FileSystemObject")

Set ou = GetObject("LDAP://OU=Users,OU=Billing,OU=Network,DC=my,DC=domain,DC=com")



'Create the User

Set usr = ou.Create("user", "CN=James Smith")

usr.Put "samAccountName", "jsmith"

usr.Put "sn", "Smith"

usr.Put "givenName", "James"

usr.Put "userPrincipalName", "jsmith@my.domain.com"

usr.Put "telephoneNumber", "(555) 555 0111"

usr.Put "title", "Network Billing Dept"

usr.SetInfo



'Now that the user is created, reset their password and enable the account.



usr.SetPassword "secret***!"

usr.AccountDisabled = False

usr.SetInfo



'Now create the User's Home Folder and set permissions.

strUser = usr.samAccountName

Call objFS.CreateFolder(USER_ROOT_UNC & "\" & strUser)

Call WshShell.Run("cacls " & USER_ROOT_UNC & "\" & strUser & _

" /e /g Administrators:F", HIDE_WINDOW, WAIT_ON_RETURN)

Call WshShell.Run("cacls " & USER_ROOT_UNC & "\" & strUser & _

" /e /g " & strUser & ":C", HIDE_WINDOW, WAIT_ON_RETURN)