подключение общей адресной книги outlook через скрипт vbs

VBS: Добавление/удаление адресной книги ldap в outlook 2013

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщения 7

1 Тема от Kail 2016-07-20 12:40:50 (изменено: Kail, 2016-07-20 13:21:14)

Тема: VBS: Добавление/удаление адресной книги ldap в outlook 2013

Скрипт должен добавлять адресную книгу с заданным фильтром поиска, удалив все имеющиеся на данный момент. На данном этапе: книга добавляется, удаления не происходит; при первом запуске outlook выводит окно настройки каталогов LDAP (где прописано имя сервера и есть пустые поля под имя\пароль), в котором нужно просто нажать ОК. Событие однократное, но тем не менее нежелательное.

2 Ответ от Kail 2016-07-20 16:34:41

Re: VBS: Добавление/удаление адресной книги ldap в outlook 2013

Методом научного тыка выяснил, что для очистки списка всех адресных книг дополнительно нужно удалить еще два ключа в разделе HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Profiles\Outlook\9207f3e0a3b11019908b08002b2a56c2. Сами ключи: 01023d01 и 01023d0e.
Проблема в том, что после их удаления скрипт не добавляет новую книгу вообще, даже после повторного запуска. Возможно, требуется сначала провести процедуру удаления этих ключей, чтобы обнулить список активных адресных книг, потом создать их заново, и только потом гнать данный скрипт. Я не силен в VBs и не могу это правильно оформить, чтобы проверить. Буду рад любой помощи

3 Ответ от Flasher 2016-07-20 22:08:49

medal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal gold

Re: VBS: Добавление/удаление адресной книги ldap в outlook 2013

Kail
А примеры с Outlook.Application не дали результатов?
Вместо удаления ключей не проще удалять их значения?:

4 Ответ от Kail 2016-07-21 11:21:57 (изменено: Kail, 2016-07-21 11:22:14)

Re: VBS: Добавление/удаление адресной книги ldap в outlook 2013

Flasher
Если удалить значения этих ключей, то они принимают тип REG_SZ вместо REG_BINARY. С вашими командами адресные книги удаляются, скрипт так же ругается на несоответствие типа «UBound» 69 строка 1 символ:

Насколько я понимаю, происходит попытка резервного копирования значений, которых там уже нет.

P.S. Да, это я додумался убрать «On Error Resume Next » и посмотреть что происходит)).

5 Ответ от Kail 2016-07-21 11:31:16

Re: VBS: Добавление/удаление адресной книги ldap в outlook 2013

Flasher
Информация от автора скрипта.

Backup Key
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9207f3e0a3b11019908b08002b2a56c2
This Key Holds Information that is used to regenerate other registry keys in the event that they are deleted.
01023d01 holds references to the address book type keys.
01023d0e holds references to the address book information keys.

Active Address Books List Key
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676
This Key is the active listing of address books, personal folders, etc currently in use by outlook.
If you add new Address book type keys and information keys into the Outlook key, they will not be active until they are listed in the active address books key.
You can not manually add an address book into the active address books list key, outlook will detect a problem with the active list, and reload them from the backup list.

Active Address Books List Index Key
HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676


This key is the index for the Active Address Book list

How to load a new address book into the active list
1. Load the address book type key and the address book information key into the outlook key.
2. Add the address book type key name into the Backup key 01023d01.
3. Add the address book information key name into the Backup key 01023d0e.
4. Delete the Active Address Books List Index Key.
5. Run Outlook and the Active Address books List Key will be automatically regenerated.

6 Ответ от Flasher 2016-07-21 21:10:50

medal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal goldmedal gold

Re: VBS: Добавление/удаление адресной книги ldap в outlook 2013

то они принимают тип REG_SZ вместо REG_BINARY.

Ясно. Array(0, 0) вместо «» указать попробуйте.

7 Ответ от Kail 2016-07-29 16:05:23

Re: VBS: Добавление/удаление адресной книги ldap в outlook 2013

Flasher
В этом случае ошибка «Несоответствие типа», в первом символе строки:

Источник

автоматическое добавление адресных книг через gpo

Зарегистрирован: 31.03.2016
Пользователь #: 161,080
Сообщения: 19

spacer avelor
Windows guru
winWindows guru » title=» Windows guru » border=»0″/>

212441256948984520029e5

Зарегистрирован: 31.03.2016
Пользователь #: 161,080
Сообщения: 19

212441256948984520029e5

Зарегистрирован: 31.03.2016
Пользователь #: 161,080
Сообщения: 19

212441256948984520029e5

Зарегистрирован: 31.03.2016
Пользователь #: 161,080
Сообщения: 19

.PNG
Описание:
Размер файла: 10 KB
Просмотрено: 5043 раз(а)
161080 1466761021.png 166

212441256948984520029e5

Зарегистрирован: 31.03.2016
Пользователь #: 161,080
Сообщения: 19

Источник

Общая адресная книга без Exchange через LDAP

У меня в конторе почтовый сервер вынесен на сервера яндекса, это очень удобно было в тот момент сделать, но в этом есть и большие минусы, один из главных минусов это адресная книга которая у нас очень часто обновляется в связи с принятием на работу новых сотрудников либо увольнением старых. И вот на этой неделе была последняя капля и решил закрыть дурацкий вопрос с адресными книгами, потому как до сегодняшнего момента использовал ручной способ обновления адресных книг что очень напрягало. Сейчас настроил синхронизацию адресной книги по средствам LDAP. В инете есть уже инструкции, но я напишу свою более развернутую и так сказать для чайников, мало ли кому то пригодится.

Для того что бы реализовать общую адресную книгу без Exchange через LDAP нам в первую очередь необходим Домен. Потому как все основные действия будут происходить с ним.

В моей инструкции уже учитывается что у вас уже есть домен и организация работает в доменной структуре.

Но как и везде тут есть свой НЮАНС.

как видите у меня билась кодировка при импорте в Active Directory и я начал делать перебор кодировок что бы найти ту которая будет нормально все загружать.

В итоге панацея была найдена и после этого все прогрузилось красиво и быстро 🙂

Вывод: перед тем как начнете делать большой импорт протестите сначала на импорте 1-2 контактов и когда увидите что все ок, грузите уже весь список!

Подключение общей адресной книги в Outlook 2010 через LDAP

Как Вы поняли это было только первая часть инструкции, потому как теперь ее надо подключить адресную книгу в outlook. Для этого делаем следующие:

Источник

Подключение общей адресной книги outlook через скрипт vbs

‘Written By James McWhinney

‘Vancouver BC, Canada

const HKEY_CURRENT_USER = &H80000001
strComputer = «.»
Set oReg=GetObject( «winmgmts:!\\» _
& strComputer & «\root\default:StdRegProv»)
RegistryFolder = «Software\Microsoft\Windows NT\» & _
«CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\»

LDAPdisplayname = «test»
LDAPserver = «domain.com»
LDAPport = «389»
LDAPsearchbase = «o=base»

‘Add Ldap connection settings key

‘Append to Backup Key for ldap types

sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2\»
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d01»,Backup
Dim oldLength
oldLength = UBound(Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &He8
Backup(oldLength+2) = &Hcb
Backup(oldLength+3) = &H48
Backup(oldLength+4) = &H86
Backup(oldLength+5) = &H9c
Backup(oldLength+6) = &H39
Backup(oldLength+7) = &H54
Backup(oldLength+8) = &H45
Backup(oldLength+9) = &Had
Backup(oldLength+10) = &He1
Backup(oldLength+11) = &H3e
Backup(oldLength+12) = &H3c
Backup(oldLength+13) = &H1c
Backup(oldLength+14) = &H80
Backup(oldLength+15) = &Hd1
Backup(oldLength+16) = &H54
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», Backup

‘Append to Backup Key for ldap connection settings

Источник

Подключение общей адресной книги outlook через скрипт vbs

Войти

Авторизуясь в LiveJournal с помощью стороннего сервиса вы принимаете условия Пользовательского соглашения LiveJournal

Подключение общей адресной книги Outlook через скрипт *.vbs

Данную статью написал в продолжении к предыдущей Общая адресная книга outlook потому как в этой статье уже пойдет речь об автоматизации подключения этой адресной книги на компьютере пользователей через групповые политики.

После того как я настроил общую адресную книгу, радости не было границ, но обходить всех пользователей мне не очень хотелось, поэтому я решил сделать этот процесс более автоматизированным.

Для начала опишу что было изначально сделано.

Был найден скрипт на сайте _http://www.codeproject.com/Articles/14053/Adding-an-LDAP-address-book-to-MS-Outlook и почитал много тем на эту тему на сайте микрософта https://social.technet.microsoft.com/Forums/ru-RU/ и сам потом создал там топик где огромное спасибо участникам помогли разобраться что к чему.

В данном скрипте который был Выше, почти отрабатывало все, кроме нескольких вещей без которых Общая адресная книга не подключалась. В том скрипте не хватало двух параметров, на картинки я их выделил красным карандашом.

Что бы понять чего не хватало в скрипте я пошел самым топорным способом я просто проанализировал два реестра и изменения внес в скрипт который и стал отлично отрабатывать. (вот данный скрипт https://yadi.sk/d/nVVP97Sviv8nN ) у меня он срабатывает и на Windows XP и на Windows 7, а также в Outlook 2007 и Outlook 2010.

После того как протестил данный скрипт на нескольких компах, время пришло подключить его к групповой политики что бы он автоматически у всех прописался.

И вуаля, у всех юзеров подключилась адресная книга в Outlook!

PS если вам нужно погрузить данную книгу на компьютере в ручную, то просто запустите данный скрипт на компьютере пользователя и он автоматически сам добавить адресную книгу.

Источник