Ax3 KR2: Создание пользователя в ActiveDirectory

[belugin]

Пытаюсь написать скрипт для создания пользователя в AD по справочнику сотрудников. Пример:

static void Test_CreateADUser(Args _args)
{
    COM ldap = COM::getObjectEx("LDAP://OU=...,dc=...,DC=RU");
    COM user = ldap.Create("user", "OU=testUser");
;
    user.Put("samAccountName",  "test");
}

Результат:

Метод 'Put' в COM-объекте класса '<неизвестно>' возвратил код ошибки 0x80004005 (E_FAIL), который означает: Общий сбой.



Однако следующий код на VBS работает:

set ldap = GetObject("LDAP://OU=...,dc=...,DC=RU")
set user = ldap.Create("user", "OU=testUser")
user.Put "samAccountName",  "test"

Пробовал через COMDispFunction - результат тот же

[KiselevSA]

Мне кажется, нужно рыть в сторону авторизации. От какого имени Axapta пытается в вызове получить доступ к AD? Ошибка похожа на ту, которая вылазит в VBS, если у пользователя нет прав на создание пользователя в AD

[belugin]

С авторизацией все нормально. Не работает конкретно Put. Если сказать

user.samAccountName("test");

то работает. Правда криво

[KiselevSA]

А через PutEx пробовали?

[belugin]

То же самое

[belugin]

а вот такой скрипт

    ...
    COM user = ldap.Create("user", "cn=testUser");
;
    user.FullName("Тестовый");
    user.samAccountName("t");
    user.SetInfo();

Приводит к тому что user logon name становится $MCE000-I3MUE14K6JBJ при этом аналогичный скрипт на js генерирует нормальный логон найм.

[KiselevSA]

На MSDN даны рекомендации после вызова put при работе через интерфейс ADSI в конце вызвать setinfo()

[belugin]

При вызове put вылетает исключение - так что до setInfo не доходит.

Если работать через свойство, то оно почему-то не присваивается причем для userPrincipalName тоже - для него в AD пусто, а для samAccountName генерится значение так, как будто оно не задано. setInfo вызывается и другие свойства сохраняются.

[gl00mie]

Цитата:

Сообщение от belugin

При вызове put вылетает исключение - так что до setInfo не доходит.

Да, причем даже шаманства с COMVariant вместо строк не помогают

Цитата:

Сообщение от belugin

Если работать через свойство, то оно почему-то не присваивается причем для userPrincipalName тоже - для него в AD пусто, а для samAccountName генерится значение так, как будто оно не задано. setInfo вызывается и другие свойства сохраняются.

setInfo вызывается, но никакие свойства не сохраняются - у меня, во всяком случае. Потому они и заполняются на сервере левыми значениями. То, что свойства не заполняются, хорошо видно в сетевом трафика при отправке LDAP-запроса на добавление пользователя в момент вызова user.setInfo(): там передаются только displayName и objectClass - и то оба свойства заполняются, видимо, при вызове ldap.Create().

Цитата:

Сообщение от KiselevSA

На MSDN даны рекомендации после вызова put при работе через интерфейс ADSI в конце вызвать setinfo()

Объясняется это, если верить network monitor, тем, что до вызова setInfo() информация об изменениях никуда с локальной машины не уходит.

[KiselevSA]

Стоп. А почему в коде:

Цитата:

COM user = ldap.Create("user", "OU=testUser");

User же должен быть через CN=?
Может здесь собака порылась?

[AndyD]

Ошибка происходит по простой причине - Axapta передает строку в структуре VARIANT не как тип BSTR bstrVal, а как BSTR *pbstrVal. Т.е. как указатель на указатель.
Метод Put() не работает с такой ссылкой, по-этому и возвращает ошибку. Сейчас думаю, как это можно обойти

[KiselevSA]

Цитата:

Сообщение от AndyD

Ошибка происходит по простой причине - Axapta передает строку в структуре VARIANT не как тип BSTR bstrVal, а как BSTR *pbstrVal. Т.е. как указатель на указатель.
Метод Put() не работает с такой ссылкой, по-этому и возвращает ошибку. Сейчас думаю, как это можно обойти

Увы, программер из меня никакой
Могу предложить только такой способ:
- объявить переменные NameArg и DataArg типа string;
- инициализировать переменные значениями;
- вызывать метод Put(NameArg, DataArg).

[AndyD]

По поводу SetInfo()

Цитата:

The IADs::SetInfo method saves the cached property values of the ADSI object to the underlying directory store

Фактически, это Flush

[belugin]

В результате я позорно сдался. Написал wsc-обертку, которая при радобе с обзектом сначала высаживается во пременный каталог, потом обертывает объект.

[AndyD]

Не поможет, к сожалению.
Внутри второй агрумент все равно будет преобразован к варианту с неправильным для функции типом