none
изменить подключение в учетной записи: "домашнюю папку служб терминалов" RRS feed

Ответы

  •  

    Dim fso, file, userline

    Const Enabled = 1

    Const Disabled = 0

     

     

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set file = fso.OpenTextFile("users.txt", 1, False)

    Do While file.AtEndOfStream <> True

    userline = file.ReadLine

    Set objUser = GetObject _

    ("LDAP://cn=" & userline & ",OU=Users,OU=HO,DC=HO,DC=Bank,DC=com")

    'objUser.TerminalServicesProfilePath = "\\sdc-ho-01\ProfilesUsers\" & userline & ""

    objUser.TerminalServicesHomeDirectory = "\\sdc-ho-01\UserTerm\" & userline & ""

    objUser.TerminalServicesHomeDrive = "S:"

    objUser.AllowLogon = Enabled

    objUser.SetInfo

    Loop

    file.Close

     

     

    _________________________________________________________________________

    Экспортим в файл users.txt всех пользователей с OU=Users,OU=HO,DC=HO,DC=Bank,DC=com и запускаем скрипт.

     

    14 августа 2008 г. 13:25

Все ответы

  • В 2003 есть возможность устанавливать некоторые параметры для множество пользователей. Для этого в ADUC используя Ctrl (или Shift) выберите нужных пользователей и выберите Свойства. Установите на закладке Profile путь к домашней папке вида \\server2\share\%username%

    Это дольше, чем воспользоваться готовым скриптом, но быстрее, чем писать свой (пользователей немного)

     

    13 августа 2008 г. 9:44
  • Было бы не плохо, но поменять можно таким образом не все параметры. В даном случае этот вариант не пройдет.

    13 августа 2008 г. 10:36
  • Тогда вам в Script Center

     

    В разделе Terminal Server есть пример нужного вам скрипта

    13 августа 2008 г. 10:48
  •  

    в scriptcenter информации маловато
    13 августа 2008 г. 11:42
  • Там есть скрипт с названием "Modify Terminal Services Profile Properties for a User Account" следующего содержания:

    Const Enabled = 1
    Const Disabled = 0

    Set objUser = GetObject _
    ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")

    objUser.TerminalServicesProfilePath = ""
    objUser.TerminalServicesHomeDirectory = ""
    objUser.TerminalServicesHomeDrive = ""
    objUser.AllowLogon = Enabled
    objUser.SetInfo




    13 августа 2008 г. 13:03
  • Сделал так, но ругается. где ошибка?

     

    Const Enabled = 1
    Const Disabled = 0

    Set objNamed = WScript.Arguments.Named
    If objNamed.Exists("Name") Then

         strUser = "CN=" + objNamed.Item("Name") + ",OU=Users,OU=HO,DC=HO,DC=Bank,DC=com"
         Set objUser = GetObject("LDAP://" & strUser)

    objUser.TerminalServicesHomeDirectory = "\\sdc-ho-01\ProfilesUsers\" + objNamed.Item("Name")
    objUser.TerminalServicesHomeDrive = "S:"
    objUser.AllowLogon = Enabled
    objUser.SetInfo

    13 августа 2008 г. 13:48
  • Как звучит текст ошибки?

    PS: смените все знаки "+" на "&" на всякий случай

    13 августа 2008 г. 16:59
  • Парни, а что ADModify.NET уже отменили?

    13 августа 2008 г. 20:11
  •  

    Пробую поменять в ADModify.net Terminal Services Home Folder (\\sdc-ho-01\ProfilesUsers\%username%) так оно менят просто на \\sdc-ho-01\ProfilesUsers\username так не катит, нужно чтобы было \\sdc-ho-01\ProfilesUsers\user01, \\sdc-ho-01\ProfilesUsers\user02 и. т.д.

     

    14 августа 2008 г. 11:20
  •  

    Dim fso, file, userline

    Const Enabled = 1

    Const Disabled = 0

     

     

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set file = fso.OpenTextFile("users.txt", 1, False)

    Do While file.AtEndOfStream <> True

    userline = file.ReadLine

    Set objUser = GetObject _

    ("LDAP://cn=" & userline & ",OU=Users,OU=HO,DC=HO,DC=Bank,DC=com")

    'objUser.TerminalServicesProfilePath = "\\sdc-ho-01\ProfilesUsers\" & userline & ""

    objUser.TerminalServicesHomeDirectory = "\\sdc-ho-01\UserTerm\" & userline & ""

    objUser.TerminalServicesHomeDrive = "S:"

    objUser.AllowLogon = Enabled

    objUser.SetInfo

    Loop

    file.Close

     

     

    _________________________________________________________________________

    Экспортим в файл users.txt всех пользователей с OU=Users,OU=HO,DC=HO,DC=Bank,DC=com и запускаем скрипт.

     

    14 августа 2008 г. 13:25