Модераторы: bartram, Akella
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с VB скриптом msExchHideFromAddressLists, Применяетатрибут Hide from exchange GAL 
V
    Опции темы
mdyug
Дата 8.9.2010, 11:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Балбес
*


Профиль
Группа: Участник
Сообщений: 134
Регистрация: 8.9.2010

Репутация: 4
Всего: 5
Всем привет!

Собсно приведенный ниже скрипт должен выбирать пользователей из определенной ветки домена 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, 11:52
PM   Вверх
mdyug
Дата 8.9.2010, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Балбес
*


Профиль
Группа: Участник
Сообщений: 134
Регистрация: 8.9.2010

Репутация: 4
Всего: 5
Цитата

Recipient Update Service has been removed in Exchange 2007


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

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

Это сообщение отредактировал(а) mdyug - 8.9.2010, 12:45
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Windows"
December
bartram
Akella

Запрещается!

1. Обсуждать взлом и делиться кряками

2. Способствовать созданию и распространению вирусов

  • Для бессмертных бородатых вопросов типа Win vs Nix есть специальный форум Религиозные Войны
  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • ВСЕГДА УКАЗЫВАЙТЕ ВЕРСИЮ ОС

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, December, bartram, Akella.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Windows | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0628 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.