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:26

Все ответы

  •  

    Сделал так, но ругается. где ошибка?

     

    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 г. 14:01
  •  

    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:26