Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Windows > Проблема с VB скриптом msExchHideFromAddressLists

Автор: mdyug 8.9.2010, 11:29

Всем привет!

Собсно приведенный ниже скрипт должен выбирать пользователей из определенной ветки домена AD и прятать их e-mail'ы от глобального списка адресов Exchange 2007.

Код


Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

 

objExcel.Cells(1, 1).Value = "User Name"

objExcel.Cells(1, 2).Value = "Full Name"

objExcel.Cells(1, 3).Value = "Description"

objExcel.Cells(1, 4).Value =  "Mail Address"

 

strDomain = "ou= ,dc= ,dc= "

Set DomObj = GetObject("LDAP://" & strDomain )

DomObj.Filter = Array("User")

For Each objUser In DomObj

objExcel.Cells(intRow, 1).Value = objUser.Name

objExcel.Cells(intRow, 2).Value = objUser.FullName

objExcel.Cells(intRow, 3).Value = objUser.Description

objExcel.Cells(intRow, 4).Value = objUser.mail

'objUser.MSExchHideFromAddressLists = TRUE

objUser.put "msExchHideFromAddressLists", TRUE

objUser.SetInfo

intRow = intRow + 1

Next

 

objExcel.Range("A1:C1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

MsgBox "Done"

Содрал даный скрипт, помойму, с технета и добавил в него пару строчек для того чтобы он мог прятать неугодных мне пользователей от глобального списка адресов Exchange srv 2007.

Код


objUser.put "msExchHideFromAddressLists", TRUE

objUser.SetInfo

Собственно галку Hide From exchange address Lists он ставит, но изменений в Default offline address book не происходит (Галка после работы скрипта остается)... Почему-то эта галка не применяется... Если вручную поставить эту галку в менеджере пользователей Exchange 2007 то все работает... Чего может не хватать?

Автор: mdyug 8.9.2010, 12:43

Цитата

Recipient Update Service has been removed in Exchange 2007

Потому и не применялись изменения. Их надо применить в ручную при помощи Exchange Management Shell.

Все же был бы благодарен за возможные варианты решения сей проблемы при помощи VB скрипта.