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

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

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