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

[snake-as]

Не смог в двух словах объяснить. Вобщем, у меня есть экселевский файл, в нем забиваются ФИО пользователей, через 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


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

[DmitriiV]

... что за параметр отвечает за то, как пользователи будут отображаться в списке, когда смотришь через оснастку Active Directory. »Значение атрибута CN

[snake-as]

Все норм, спасибо