Sdscompany.ru

Компьютерный журнал
23 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Outlook ldap адресная книга настройка

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

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

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

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

поехали

  1. Заходим на контроллер домена и открываем приложение Active Directory — пользователи и компьютеры
  2. Определяем где мы будем вести нашу адресную книгу (я использовал папку которая уже есть по умолчанию CONTACT )
  3. создаем там тестовый контакт Создать -> Контакт (обратите внимание не пользователя а КОНТАКТ)
  4. заполните профиль этого контакта те поля которые вы хотите что бы отображалось (ФИО, тел, номер кабинета, e-mail и т.д.)
  5. Откройте командную строку Пуск-cmd
  6. Делаем экспорт данной группы контактов, что бы у нас был шаблон для заполнения след командой csvde -f c:ad2.csv -d «OU=contact,DC=домен,DC=ru» -u
    примечание:
    — экспорт импорт делаем командой csvde
    — экспорт делаем в формате CSV (удобней потом редактировать)
    — заносим свои данные в OU и DC (тут я надеюсь понятно что откуда)
    — в конце ставим ключ -u это что бы кодировка была в Юникоде
  7. На выходе на диске С у нас есть файл ad2.csv его импортируем в в excel или гугл документ (я все делаю через гугл, очень удобно)
  8. у нас будет две строчки и много столбцов и вторая строчка как раз будет с нашим тестовым юзером которого мы создали
  9. Далее дело за малым удалить лишние столбцы (те в которых идут индефикаторы(там где много цифр ))) )) и далее на основе тестового юзера внести всех остальных пользователей и заполнением всех полей (ФИО, тел, номер кабинета, e-mail и т.д.)
  10. сохраняете данный файл кладете его на диск С контроллера домена и вводим команду импорта csvde -i -f c:ad3.csv -k -u
    примечание:
    — импорт делаем командой csvde
    — при импорте указываем файл CSV который мы заполнили в в excel или гугл
    — ключ -k означает пропускать ошибки или уже имеющиеся повторяющиеся контакты
    — u это что бы кодировка была в Юникоде

  11. На это все

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

С первого раза у меня не получилось все это загрузить какие бы я варианты не пробовал потому как при загрузке у меня контакты выглядели след образом:

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

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

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

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

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

  1. Открываем Outlook 2010(у вас может быть любой клиент, логика не меняется)
  2. Идем в меню Файл ->Сведения ->Настройка Учетных записей ->открываем вкладку Адресная книга -> нажимаем создать

  3. Выбираем пункт Служба каталогов Интернета (LDAP)

  4. далее в имя сервера вводим либо имя контролера домена либо его IP адрес, активируете две галочки в пункте Вход в систему и нажимаем Другие настройки
  5. В след пункте Имя указываем имя как у нас будет отображаться адресная книга в списке и переходим на вкладку ПОИСК
  6. Тут ставим переключатель на Другая и вносим данные откуда будут браться контакты и обязательно ставим галочку в пункте ПРОСМОТР

Добавление или удаление адресной книги

Адресная книга Outlook — это набор адресных книг и списков адресов, созданных на основе папок контактов. С помощью адресной книги можно находить и выбирать имена, адреса электронной почты и списки рассылки при отправке сообщений электронной почты.

Если вы используете Outlook с учетной записью Exchange Server, в адресную книгу будет включен Глобальный список адресов (GAL). Глобальный список адресов содержит имена и адреса электронной почты всех пользователей, имеющих учетную запись на сервере Exchange Server. Он настраивается в Exchange автоматически.

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

На вкладке Главная в группе Найти нажмите кнопку Адресная книга.

В поле Адресная книга выберите нужную адресную книгу.

На вкладке Файл выберите Настройка учетных записей > Настройка учетных записей.

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

Примечание: Появится список существующих адресных книг.

Вам будет предложено выбрать один из двух типов адресных книг:

Добавление адресной книги с помощью службы каталогов Интернета (LDAP)

Щелкните Служба каталогов Интернета (LDAP) и нажмите кнопку Далее.

В поле Имя сервера введите имя сервера, предоставленное поставщиком услуг Интернета или системным администратором.

Если указанный сервер защищен паролем, установите флажок Требуется вход на сервер и введите имя пользователя и пароль.

Нажмите кнопку Больше параметров.

В поле Отображаемое имя введите имя адресной книги LDAP, которое будет отображаться в списке Адресная книга диалогового окна Адресная книга.

В группе Сведения о подключении введите номер порта, предоставленный поставщиком услуг Интернета или системным администратором.

Откройте вкладку Поиск и внесите в параметры сервера необходимые изменения.

Если поле База поиска в разделе Параметры поиска не заполнено, введите различающиеся имена, предоставленные администратором.

Нажмите кнопки ОК, Далее и Готово.

Добавление дополнительной адресной книги

Щелкните Дополнительные адресные книги и нажмите кнопку Далее.

Выберите необходимую адресную книгу и нажмите кнопку Далее.

Чтобы использовать добавленную адресную книгу, необходимо закрыть и перезапустить Outlook.

Примечание: Если вы используете Outlook 2016 или Outlook 2013, дополнительные сведения см. в статье Создание адресной книги.

На вкладке Файл выберите Настройка учетных записей > Настройка учетных записей.

На вкладке Адресные книги выберите адресную книгу, а затем нажмите кнопку Удалить.

При первом открытии адресной книги отображается стандартная адресная книга. Если у вас есть учетная запись Microsoft Exchange, обычно это глобальный список адресов. Для учетных записей IMAP, POP3 и других типов чаще всего это адресная книга Outlook. Вы можете изменить стандартную адресную книгу и настроить ее параметры, например указать, в какой адресной книге нужно прежде всего искать адреса при отправке сообщений и где хранить личные адреса.

Чтобы просмотреть другие адресные книги, необходимо выбрать их в списке адресных книг Outlook.

Хотя в Microsoft Office Outlook 2007 теперь невозможно создавать личные адресные книги, вы можете импортировать старые личные адресные книги и преобразовать их. Рекомендуется преобразовать личную адресную книгу в контакты Outlook, которые могут отображаться в адресной книге Outlook. Для контактов Outlook поддерживаются дополнительные возможности и настройки, недоступные для личных адресных книг. Например, вы можете добавлять личные профили для контактов, которые включают дни рождения, номера телефонов, годовщины и адреса веб-сайтов.

Поддерживаются следующие типы адресных книг:

Глобальный список адресов.
Для отображения этой адресной книги необходимо использовать учетную запись Microsoft Exchange Server. Глобальный список адресов содержит имена и адреса электронной почты всех сотрудников организации. Он настраивается автоматически при наличии учетной записи Exchange. Адресную книгу создает и обслуживает администратор Exchange или администратор сети. Она также может содержать адреса электронной почты внешних контактов, списки рассылки, конференц-залов и оборудования. Подмножества глобального списка адресов отображаются в адресной книге при выборе значения в разделе Все списки адресов в списке Адресная книга. Вы можете скачать глобальный список адресов для использования в автономном режиме.

Примечание: Если вы используете Microsoft Office Outlook 2007 с учетной записью Exchange в режиме кэширования, автономная адресная книга по умолчанию загружается и обновляется каждые 24 часа.

Адресная книга Outlook.
Для использования этой адресной книги не требуется учетную запись Exchange. Адресная книга Outlook создается автоматически и содержит записи из стандартной папки Контакты, в которых есть адреса электронной почты или номера факса. Эти контакты отображаются в диалоговом окне Адресная книга при выборе значения Контакты в списке Адресная книга. Если для Outlook используется учетная запись Exchange в режиме кэширования, адресная книга Outlook также доступна автономно.

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

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

Сторонние адресные книги.
Сторонние адресные книги можно добавить в Outlook с помощью средства настройки их поставщика. Outlook выводит сторонние адресные книги в списке Дополнительные типы адресных книг.

В меню Сервис выберите элемент Настройка учетных записей.

На вкладке Адресные книги нажмите кнопку Создать.

Вам будет предложено выбрать один из двух типов адресных книг. Чтобы добавить адресную книгу нужного типа, выполните одно из следующих действий:

Добавление адресной книги с помощью службы каталогов Интернета (LDAP)

Щелкните Служба каталогов Интернета (LDAP) и нажмите кнопку Далее.

В поле Имя сервера введите имя сервера, предоставленное поставщиком услуг Интернета или системным администратором.

Если указанный сервер защищен паролем, установите флажок Требуется вход на сервер и введите имя пользователя и пароль.

Нажмите кнопку Больше параметров.

В поле Отображаемое имя введите имя адресной книги LDAP, которое будет отображаться в списке Адресная книга диалогового окна Адресная книга.

В группе Сведения о подключении введите номер порта, предоставленный поставщиком услуг Интернета или системным администратором.

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

Если поле База поиска в разделе Параметры поиска не заполнено, введите различающиеся имена, предоставленные администратором.

Нажмите кнопки ОК, Далее и Готово.

Добавление дополнительной адресной книги

Щелкните Дополнительные адресные книги и нажмите кнопку Далее.

Выберите необходимую адресную книгу и нажмите кнопку Далее.

Чтобы использовать добавленную адресную книгу, необходимо закрыть и перезапустить Outlook.

Примечание: Если вы хотите добавить имена или адреса в адресную книгу, см. статью Добавление пользователей в адресную книгу. Сведения о том, как изменить адресную книгу, см. в статье Изменение записей адресной книги.

В меню Сервис выберите элемент Настройка учетных записей.

На вкладке Адресные книги выберите адресную книгу, которую вы хотите удалить.

Записки компьютерщика

tail -f /var/log/messages

понедельник, 29 июня 2009 г.

Общая адресная книга в Microsoft Outlook

Давно поднимался вопрос об общей адресной книге внутри организации.

С Outlook Express ничего дельного так и не придумал. А вот на новом месте работ, где у сотрудников был установлен Microsoft Outlook, удалось решить этот вопрос.

Итак, никаких Exchange! Используем данные из LDAP сервера Active Directory.

Настройка сервера Windows 2003
1. Пуск, Выполнить, ввести команду adsiedit.msc
2. В ADSI Edit tool открыть Configuration [ DomainController].
3. Развернуть контейнер CN=Configuration,DC=Domain,DC=ru.
4. Развернуть объект CN=Services.
5. Развернуть объект CN=Windows NT.
6. Щёлкнуть правой кнопкой по объекту CN=Directory Service object. Нажать на Properties.
7. В списке атрибутов выбрать msds-Other-Settings и нажать кнопку Edit.
8. Удалить значение DisableVLVSupport=0, добавить DisableVLVSupport=1 .
9. Закрыть окна через Ок.

Ввод данных в AD

В Active Directory заполнить у пользователей следующие поля «Выводимое имя», e-mail, остальные по желанию и необходимости.

Настройка Outlook 2007

Выполнить «Настройка учётных записей», «Адресные книги», Создать, Служба каталогов Интернета (LDAP).

Далее в появившемся окне ввести:
Имя сервера, настроенного нами выше.
Логин в форме доменимя, пароль (Можно завести отдельного пользователя под эти нужды).

Перейти на вкладку «Другие настройки».
Задать выводимое название, которое пользователь увидит при создании письма.

Далее на вкладке «Поиск» задаём базу поиска. Например так
OU=Пользователи,DC= Domain ,DC= ru
Ставим галочку «Включить просмотр»

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

22 комментария:

привет
проделал все как у тебя написано, но не сканало, книга цепляется, а поиск не робит

Рад, что статейка оказалась полезной.

Интересная статья 🙂 Вопросик появился. Есть сетка с екченджем даже. Есть 3 компа секретарей. Нодо, чтоб на этих 3-х компах была общая адресная книга. И не только людей которые есть в AD но и внешних. Описанный выше метод прокатит?

Ребята я придумал другой простой способ:

Создаем новый пустой pst-файл на сетевой папке с правом всем на чтение и админу кто будет контакты править полное, затем копируем в него текущую папку Контакты (чтоб новый появился в папке Контакты) и все. Как говориться все гениальное — просто. НИЖЕ подробные шаги действий для новичков.

1) Создаем новый pst-файл (можно сразу на расшаренном общей сетевой папке)

Файл > Управление файлами данных > Вкладка «Файлы данных» > Жмем «Добавить» > название файла например «КонтактыМММ.pst», где МММ аббревиатура вашей компании >
в окошке «Создание личных папок в поле «Имя», где по умолчанию написано «Личные папки» изменяем на тоже самое что и имя файла «КонтактыМММ»

Все файл создан и он пуст.

2)Заходим в Контакты (область переходов) и жмем на Контакты правой кнопкой мыши — выбираем Копировать Контакты > Выбираем в списке новый пункт КонтактыМММ и ОК

Все теущие контакты из Личной папки скопировались в КонтактыМММ, но самое главное в разделе Контакты где по умолчанию Контакты также появился наш КонтактыМММ

3) Ну и все — наполняйте КонтактыМММ корпоративными адресами и у пользователей также придеться проделать пункт 1
Т.к. файлик будет в сети и открыт только на чтение по идее он от туда будет брать инфу заносимую только Вами. Контакты по умолчанию пользователи могут использовать для личных своих адресов и надо им объяснить чтоб не пытались сами добавлять

СПОСОБ ПРИДУМАЛ ТОЛЬКО ЧТО так уж поиграйтесь на предмет не будет ли конфилктов когда этот файл открыт с нескольких компов. Щас займусь тем же.

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

Ладно отбой, МОДЕРАТОР удали мое версию чтоб форум не захломляла

Привет. Очень хорошая статья. Есть вопрос-как сделать, чтоб поиск работал. Книга подключается, расширенный поиск работает, а обычный не ищет ничего? Спасибо за ответ.

To flodur:
А зачем вам такая схема, если вы используете Exchange? Этот способ не позволяет править адресную книгу самим пользователям.

По поводу «внешних» людей. В AD можно добавить не пользователя, а контакт. В самый раз под эти нужды.

To Аноним:
Поиск тоже не работает. Хватает следующих действий: Создать сообщение — Кому. — выбрать созданную адресную книгу LDAD.

Я решил эту задачу, тупо пошарив контакты на одном компе и подключив их на другие 🙂

Максим у меня есть продолжение:
каждому юзеру папка и по расписанию обновлять юзеру его версию котактов

Спасибо за хорошую статью но хотелось бы её дополнить информацией как можно настройки подключения к LDAP адресной книге в OUTLOOKЕ бросить в сеть более 50 компов. а то ходить(ногами или удаленно) на каждую машину не очень хочеться.
Есть у кого варианты??

статья написана легко и понятно,только у меня 2008 сервер,книга не подцепляется..не работает

На 2k8r2 работает. Ед тока нюанс это подключение базы: если указать OU=Контакты,DC=домен,DC=зона то ругается что нет базы. Если убрать OU=Контакты и оставить тока DC=домен,DC=зона то все работает. То есть по контейнерам не сканит. Можно как то это исправить? Если же оставить по умолчанию то все ок. Но есть необходимость подключить несколько адресных баз.

А вот можно насчет 2008R2 поподробнее, как в нем всё это устроить?

в свое время тоже задался задачей установки общей адресной книги для офиса. Решил задачу установкой SharePoint сервиса, подключил его в качестве контактов для Outlook.

День добрый. А в microsoft outlook 2003 как такое сделать?

По поводу автоматического подключения адресной книги на всех компьютерах. В GPO, VBS я не нашел средств управления LDAP адресной книги. В итоге сделал скрипт на autoit:

Run(«C:Program Files (x86)Microsoft OfficeOffice12outlook.exe»)
WinWaitActive(«Outlook сегодня — Microsoft Outlook»)

Send(«!t»)
MouseClick(«left»,279,218)
;добавление адресной книги
Send(«^+«)
MouseClick(«left»,50,115)
Sleep(100)
ControlClick(«Добавление новой учетной записи электронной почты»,»&Далее >»,»Button4″)
Sleep(100)
ControlSend(«Добавление новой учетной записи электронной почты»,»»,»RichEdit20WPT1″,»10.0.0.8″)
Sleep(100)
ControlCommand(«Добавление новой учетной записи электронной почты»,»Требуется вход на сервер «,»Button1″,»Check»)
Sleep(100)
ControlSend(«Добавление новой учетной записи электронной почты»,»»,»RichEdit20WPT2″,»restoratormail»)
Sleep(100)
ControlSend(«Добавление новой учетной записи электронной почты»,»»,»RichEdit20WPT3″,»refurin»)
ControlClick(«Добавление новой учетной записи электронной почты»,»Другие настро&йки . «,»Button3»)
Send(««)
Send(«^«)

Send(««)
Send(«^«)
;Другие
MouseClick(«left»,110,15)
WinWaitActive(«Каталог Microsoft LDAP»)
ControlCommand(«Каталог Microsoft LDAP»,»»,»Button5″,»Check»)
ControlSend(«Каталог Microsoft LDAP»,»»,»RichEdit20W3″,»ou=RestoratorUsers,dc=restorator,dc=local»)
ControlClick(«Каталог Microsoft LDAP»,»ОК»,»Button7″)
MouseClick(«left»,160,300)
WinWaitActive(«Добавление новой учетной записи электронной почты»)
ControlClick(«Добавление новой учетной записи электронной почты»,»»,»Button7″)
ControlClick(«Добавление новой учетной записи электронной почты»,»»,»Button8″)
ControlClick(«Настройка учетных записей»,»»,»Button1″)
;Закрыть Outlook
WinClose(«»)

Скрипт для добавления LDAP адресной книги в Outlook 2007 http://misli-vsluh.ru/?p=370

Выложил тут: http://depositfiles.com/files/05eig8dzp

Скрипт с блокировкой ввода и запретом множественного запуска. Запускает скрипт, вводит типовые данные, и закрывает клиент. В архиве билд, исходник скрипта и autoit для вашего удобства.

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

Недавно использовал его у себя на предприятии.

Однако, этой заметке уже три года, а она всё ещё актуальна.

Подскажите мега-упрощённый вариант выполнения задачи «Общая корпоративная адресная книга».

Ранее в АутлукЭкспресс создавался файл с расширением wab(если не ошибаюсь) и в настройках адресной строки указывался путь к этому файлу. Всё!
В сети лежит файл адресной книги, который можно править. У всех берутся данные из этого файла.

Не нужно никаких служб, не нужно никаких доменов и т.д.

В моём случае — есть терминальный сервер. Нет домена(не нужен).
Нужно всем пользователям удалённого рабочего стола в Аутлуке настроить общую адресную книгу!
Какие есть упрощённые «до нельзя» варианты?

Общие контакты в Outlook без использования Exchange

Собственно, возникла задача: можно ли сделать общую адресную книгу Outlook для всех пользователей домена без использования сервера Exchange. Что, собственно, имеется: домен Active Directore, клиентские ОС (Windows Xp SP3 и Windows 7) и установленный на них MS Outlook версий 2003/2007/2010. Необходимо чтобы все пользователи домена в Outlook имели общий список внешних контактов.

При реализации этой задачки рассматривались различные варианты, начиная от необходимости разработки скриптов по синхронизации контактов между клиентами до различных сторонних решений. Однако все это было признано достаточно трудоемким и неудобным, пока в голову не пришла идея – а что если воспользоваться уже имеющейся единой базой данных под именем Active Directory для хранения информации обо всех общих контактах. Поэтому стали копать в сторону поддержки LDAP в Outlook (которая как оказывается имеется. ).

Подготовительные шаги. В структуре Active Directory создадим отдельный организационный элемент OU, с именем, например, Contact. В данной OU будут храниться все наши внешние контакты. Заполним созданный нами OU элементами AD типа «Контакты», задав им необходимые имена и email адреса (у контактов обязательно должные быть заполнены поля Display Name и E-mail).

Настроим клиент Outlook на использование общей базы контактов по LDAP. В данной инструкции я буду настраивать Outlook 2010, в Outlook 2007/2003 процедура аналогично за исключением различий в интерфейсе и расположении/названии пунктов меню, я думаю, вы сами все найдете.

Настройка Outlook 2010 на общую адресную книгу LDAP

  1. Откроем Outlook 2010 и перейдем к настройке учетной записи почты (File-> Info-> Account Settings)
  2. Перейдите на вкладку Адресные книги (Address Books) и создадим новую адресную книгу (New)
  3. Тип адресной книги выберем Internet Directory Service (LDAP)
  4. В качестве имени сервера укажем FQDN имя ближайшего к нам контроллера домена Active Directory (у меня это dc1.wintpro.ru) и перейдем в раздел дополнительной настройки (More Settings)
  5. Перейдем на вкладку Search и в поле Custom укажем DN имя ранее созданного организационного юнита Active Directory, в котором хранится список контактов для нашей адресной книги (ou=contact,dc=winitpro,dc=ru) и включаем опцию “Enable Browsing”
  6. Сохраняем все изменения и перезапускаем Outlook
  7. Открываем Outlook. Запускаем адресную книгу. В качестве источника контактов выбираем адресную книгу с именем dc1.winitpro.ru. И, о чудо, перед вами появится список всех контактов, заведенных вами в Active Directory. Данную адресную книгу можно задать в качестве дефолтной.

Таким образом, мы настроили наш Outlook 2010 на использование общей адресной книги контактов, хранящейся в каталоге AD.

Outlook ldap адресная книга настройка

‘Written By James McWhinney

‘Vancouver BC, Canada

‘April 26th, 2006

const HKEY_CURRENT_USER = &H80000001
strComputer = «.»
Set oReg=GetObject( «winmgmts:!\» _
& strComputer & «rootdefault:StdRegProv»)
RegistryFolder = «SoftwareMicrosoftWindows NT» & _
«CurrentVersionWindows Messaging SubsystemProfilesOutlook»

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

‘Add Ldap Type Key

sKeyPath = RegistryFolder & «e8cb48869c395445ade13e3c1c80d154»
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, _
sKeyPath, «00033009», Array(0,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, _
sKeyPath, «00033e03», Array(&H23,0,0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
«001e3001», «Microsoft LDAP Directory»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
«001e3006», «Microsoft LDAP Directory»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
«001e300a», «EMABLT.DLL»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
«001e3d09», «EMABLT»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
«001e3d13», «<6485D268-C2AC-11D1-AD3E-10A0C911C9C0>»
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, _
«01023d0c», Array(&H5c,&Hb9,&H3b,&H24, _
&Hff,&H71,&H07,&H41,&Hb7,&Hd8,_
&H3b,&H9c,&Hb6,&H31,&H79,&H92)

‘Add Ldap connection settings key

sKeyPath = RegistryFolder & «5cb93b24ff710741b7d83b9cb6317992»
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, _
sKeyPath, «00033009», Array(&H20,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6613», Array(0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6615», Array(0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3001», LDAPdisplayname
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d09», «EMABLT»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d0a», «BJABLR.DLL»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d0b», «ServiceEntry»
oReg.SetStringValue HKEY_CURRENT_USER, _
sKeyPath , «001e3d13», «<6485D268-C2AC-11D1-AD3E-10A0C911C9C0>»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6600», LDAPserver
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6601», LDAPport
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6602», «»
oReg.SetStringValue HKEY_CURRENT_USER, _
sKeyPath , «001e6603», LDAPsearchbase
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
«001e6604», «(&(mail=*)(|(mail=%s*)» & _
«(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6605», «SMTP»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6606», «mail»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6607», «60»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6608», «100»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6609», «120»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660a», «15»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660b», «»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660c», «OFF»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660d», «OFF»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660e», «NONE»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660f», «OFF»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6610», «postalAddress»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6611», «cn»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6612», «1»
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «001e67f1», Array(&H0a)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023615», _
Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,_
&Hd3,&H11,&H9d,&H60,&H00,_
&Hc0,&H4f,&H4c,&H8e,&Hfa)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», _
Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,_
&H54,&H45,&Had,&He1,&H3e,&H3c,_
&H1c,&H80,&Hd1,&H54)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01026631», _
Array(&H98,&H17,&H82,&H92,&H5b,&H43,_
&H03,&H4b,&H99,&H5d,&H5c,_
&Hc6,&H74,&H88,&H7b,&H34)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «101e3d0f», _
Array(&H02,&H00,&H00,&H00,&H0c,&H00,_
&H00,&H00,&H17,&H00,&H00,&H00,_
&H45,&H4d,&H41,&H42,&H4c,&H54,_
&H2e,&H44,&H4c,&H4c,&H00,&H42,_
&H4a,&H41,&H42,&H4c,&H52,&H2e,_
&H44,&Hc,&H4c,&H00)

‘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

Читать еще:  Айпи адрес человека
Ссылка на основную публикацию
ВсеИнструменты 220 Вольт
Adblock
detector