none
Создание объектов (security group) в AD с названиями на русском языке. RRS feed

  • Вопрос

  • Помогите, кто знает.

    Скрипт создает группы безопасности в AD, список групп берется из txt-файла, имя каждой группы с новой строки, файл сохранен в кодировке unicod. Пробовал все кодировки, в которых может сохранять Блокнот.

    Если названия групп на английском, все нормально работает. Если названия на руском, скрипт останавливается с ошибкой "An invalid directory pathname was passed", Code: 80005000, Source: Active Directory

    Текст скрипта:

    Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
    Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
    Const ForReading = 1

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.OpenTextFile("D:\Automation\groups_ru.txt", ForReading)

    Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    arrItems = Split(strLine, ",")

    Set objOU = GetObject("LDAP://ou=Security groups,ou=Dc1,dc=dc1")

    Set objGroup = objOU.Create("Group", "cn=" & arrItems(0))

    objGroup.Put "samAccountName", arrItems(0)
    objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP Or _
    ADS_GROUP_TYPE_SECURITY_ENABLED
    objGroup.SetInfo

    Loop

    objFile.Close
    17 июля 2007 г. 14:14

Ответы

Все ответы