Изменение заголовка пользователя AD в консоли управления AD с помощью VB.NET

Question

У меня есть рабочий код для создания нового пользователя AD вместе с его различными свойствами. Единственное, чего я не могу заставить работать:

Запись пользователей в окне AD-Management (подпись) такая же, как и у CN. Но мне нужно, чтобы запись была такой же, как атрибут DisplayName.

После ручного изменения имени записи пользователя, я обнаружил, что атрибут "имя" также изменился. (Смотрите скриншот) Скриншот-1

Поэтому я попытался использовать атрибут "имя" в своем коде. Но когда я использую атрибут во время первого CommitChanges() (эффективно создавая права доступа), он не устанавливается в значение, которое я хочу. Вместо этого он остается таким же, как имя пользователя (SAMAccountName) пользователя.

Если я пытаюсь установить значение атрибута во время более поздней CommitChanges (), он выдает следующее исключение

"00002016: SvcErr: DSID-031A12D2, проблема 5003 (WILL_NOT_PERFORM), данные 0" & vbLf

Есть ли у вас какие-либо идеи, что я могу сделать, чтобы изменить атрибут "имя" объекта AD?

(Кстати: мой код содержит несколько немецких слов. Vorname = имя / фамилия = фамилия и т. Д., Если вам интересно)

        Dim o As DirectoryEntry
        Dim c As DirectoryEntries
        Dim OUPath = ("LDAP://OU=" & OU & ",OU=Benutzer,DC=int,DC=xxxx,DC=xx")
        o = New DirectoryEntry(OUPath, "xxxx", "xxxx", System.DirectoryServices.AuthenticationTypes.Secure)
        c = o.Children()
        o = c.Add("CN=" & UsernameV, "user")

        o.Properties("SAMAccountName").Value = UsernameV
        o.Properties("sn").Add(NachnameV)
        o.Properties("givenName").Add(VornameV)
        o.Properties("displayName").Add("" & NachnameV & ", " & VornameV & "")
        o.Properties("name").Add("" & NachnameV & ", " & VornameV & "")
        o.Properties("userPrincipalName").Add(UsernameV & "@xxxx")
        o.CommitChanges()
        o.Invoke("setPassword", New Object() {PWV})
        o.CommitChanges()
        'newUser.Properties("userAccountControl").Add(512)
        'newUser.CommitChanges()
        o.Properties("description").Add(UsernameV)
        o.Properties("scriptPath").Add("logon.bat")
        o.Properties("homeDrive").Add("H:")
        o.Properties("homeDirectory").Add("\\datsrv-01\homes\" & UsernameV & "$")
        o.Properties("company").Add(ComboBox_so.SelectedItem.ToString)
        o.Properties("department").Add(ComboBox_abt.SelectedItem.ToString)
        o.Properties("telephoneNumber").Add(TelV)
        o.Properties("userAccountControl").Value = 65536
        o.CommitChanges()
        o.NativeObject.AccountDisabled = False
        o.CommitChanges()
        MsgBox("Erstellen erfolgreich")