Если я правильно помню, proxyAddresses - это на самом деле массив, а не одно значение. К нему также добавляется информация о типе адреса ...
Внимание! Впереди уродливый код!
Это некоторый код, который я использовал ранее, поэтому измените основной адрес электронной почты для учетных записей пользователей и сохраните прежние адреса (как при переключении основных имен доменов). Это может помочь вам внести изменения
Dim lNewList As New List(Of String)
sPrimaryAddress = sPrimaryAddress.Split("@")(0) & "@" & "example.com"
lNewList.Add("SMTP:" & sPrimaryAddress)
For Each sAddr As String In lPrevList
lNewList.Add(sAddr) 'which will be a list of values like "smtp:someone@domain.com"'
Next
Dim oUser As DirectoryEntry = oResult.GetDirectoryEntry()
oUser.Properties("mail").Value = sPrimaryAddress
oUser.Properties("ProxyAddresses").Value = lNewList.ToArray()
oUser.CommitChanges()
lPrevList был списком адресов электронной почты, которые пользователь уже прикрепил к своему профилю. Их основной адрес начинается с SMTP: , а остальные начинаются с smtp: (строчные буквы). Вы можете использовать другие значения, такие как x400 и т. Д.
Убедитесь, что вы внимательно относитесь к каждому значению. Вы не хотите писать скрипт, а затем запускать его через свой домен и взорвать все аккаунты