Любой язык - Пользователи через LDAP создаются не так, как вручную

Любой язык - Пользователи через LDAP создаются не так, как вручную

snake-as

Пользователь

Сообщения: 84
Благодарности: 0

Изображения

	Снимок1.PNG
(4.7 Kb, 7 просмотров)
	Снимок2.PNG
(7.9 Kb, 7 просмотров)

Не смог в двух словах объяснить. Вобщем, у меня есть экселевский файл, в нем забиваются ФИО пользователей, через VBA делаются имя учетной записи, пароли и прописывается аккаунт в определенной папке в AD. Все прекрасно, но есть косяк:
Допустим, создаю я вручную Иванова Ивана:
FirstName: Иван
LastName: Иванов
DisplayName: ИвановИван
NicName: Ivanov
Он создается и когда в папку в AD заходишь он отображается так, как написано в Display Name, тоесть Иванов Иван
А если создать через скрипт, то отображаться он будет как Ivanov. Хотя все поля у них одинаково заполнены.
Подскажите, что за параметр отвечает за то, как пользователи будут отображаться в списке, когда смотришь через оснастку Active Directory.

Вот скрипт:

Код:

    NicName = Trim(Cells(Row, 1).Value)     'Логин
    Set objUser = objContainer.Create("user", "cn=" & NicName)
    objUser.Put "sAMAccountName", NicName
    objUser.SetInfo
    objUser.Put "userPrincipalName", NicName + "@domain.local"
    objUser.SetInfo
    objUser.Put "givenName", FirstName
    objUser.SetInfo
    objUser.Put "sn", LastName
    objUser.SetInfo
    objUser.Put "Initials", initials
    objUser.SetInfo
    objUser.Put "displayName", ShowName
    objUser.SetInfo
    If Description <> "" Then
        objUser.Put "description", Description
        objUser.SetInfo
    End If
    objUser.SetPassword Password
    objUser.AccountDisabled = False
    objUser.SetInfo
    objUser.Put "pwdLastSet", -1
    objUser.SetInfo
    objUser.Put "userAccountControl", intUAC Xor ADS_UF_DONT_EXPIRE_PASSWD
    objUser.SetInfo
    newFlag = ADS_UF_DONT_EXPIRE_PASSWD
    objUser.Put "userAccountControl", &H10000
    objUser.SetInfo

Прикрепил скрины. Заранее спасибо.

Отправлено: 10:36, 30-11-2011