none
Перенос профелей пользователей RRS feed

  • Вопрос

  • Ситуация такая... было преобретено хранилице и теперь надо переназначить место хранения профелей на него. Есть ли возможность автоматически назначить всем место хранения или придется вручную всех переписывать?
    11 июня 2008 г. 8:05

Ответы

  • Либо скриптом, либо выбрать нужных пользователей (поиском или непосредственно в OU) с использованием Ctrl или Shift (или Ctrl+A) и для всех одновременно задать путь через переменную %Username%
    11 июня 2008 г. 8:45

Все ответы

  • Либо скриптом, либо выбрать нужных пользователей (поиском или непосредственно в OU) с использованием Ctrl или Shift (или Ctrl+A) и для всех одновременно задать путь через переменную %Username%
    11 июня 2008 г. 8:45
  • Скриптик для изменения домашней директории, но можно и для профиля юзать
    On Error Resume Next

    Const ADS_SCOPE_SUBTREE = 2

    Set objConnection = CreateObject("ADODB.Connection")
    Set objCommand =   CreateObject("ADODB.Command")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand.ActiveConnection = objConnection

    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

    'с какой OU будем начинать обработку
    objCommand.CommandText = "SELECT adsPath FROM 'LDAP://ou=test,dc=test' WHERE objectCategory='user'"
    Set objRecordSet = objCommand.Execute

    objRecordSet.MoveFirst
    Do Until objRecordSet.EOF

    Set objUser = GetObject(objRecordSet.Fields("AdsPath").Value)
      'путь к директории и имя диска
       objUser.Put "homeDirectory", "\\sea-dc-01\HomeFolders\myerken"
       objUser.Put "homeDrive", "H:"
       objuser.setinfo
    objRecordSet.movenext
    Loop

    11 июня 2008 г. 8:47