понедельник, 12 декабря 2011 г.

Телефонный справочник сотрудников на базе AD (Active Directory), LDAP

PHP:
http://www.pitin.su/news-64-10-0.htm

PowerShell
http://ibmrus.com/html-telefonnyi-spravochnik-iz-active-directory-powershell

C# для SharePoint
http://orionxl.ru/telefonnyj-spravochnik-ili-spisok-sotrudnikov-na-c-dlya-sharepoint-foundatation-2010-s-ispolzovaniem-ad-active-directory

Sharepoint 2010: коряво-ручной способ организовать телефонный справочник
http://kabal375.livejournal.com/4535.html



VBS
Скрипт извлекает из учетной записи пользователя Active Directory, Имя, Фамилию, Телефоны и записывает в текстовый файл с разделителем ";".Короткий мобильный - номер переадресации на мобильный, например внутренний номер 100, переадресация на мобильный происходит при наборе 500. Далее возможно использование файла по своему усмотрению, например как источник данных для Excel. Organization Unit - папка в Active Directory, где находятся пользователи.
Например:
домен domain.local
<ИМЯ ДОМЕНА1> - domain
<ИМЯ ДОМЕНА2> - local

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("users.txt", 2, true) 'файл, куда записываем
Dim re ' переменная для регулярного выражения
Set re = new regexp ' объект для регулярного выражения
'-------------------------------------------------
Set objDomain = GetObject _
("LDAP://OU=Organization Unit,dc=ИМЯ ДОМЕНА1,dc=ИМЯ ДОМЕНА2")

file.WriteLine("Абонент;Мобильный;E-mail;Внутренний;Короткий мобильный")
For Each objUser In objDomain

name=objUser.Name 'достает имя пользователя
arr_name = split(name,"=") 'убираем лишнее
arr_first_last_name = split(arr_name(1)," ")
'first_name = arr_first_last_name(0)
'last_name = arr_first_last_name(1)
mail=objUser.Mail 'достаем мэйл
mobile=objUser.Mobile 'достаем номер мобильного
ipPhone=objUser.ipPhone 'достаем номер IP телефона
short_mobile=ipPhone 'переменная для короткого номера мобильного

re.Pattern = "\d" ' убираем только первую цифру
re.IgnoreCase = true ' игнорируем регистр символов
short_mobile1 = re.Replace(short_mobile, "5") ' меняем первую цифру на 5
if mobile<>"" Then file.WriteLine(arr_name(1)+";"+mobile+";"+mail+";"+ipPhone+";"+short_mobile1) end if 'если номер мобильного есть, то заносим в справочник
Next
file.Close()

1C8
http://infostart.ru/public/19533/


1 комментарий:

  1. Вот ещё одна интересная работа. Автор использует всего 2 скрипта на vbs. Первый следит за пользователями и добавляет/удаляет контакты в AD, а второй скрипт строит из этих контактов html-страницу, к которой прикручивает с java и css для реализации сортировки и поиска в таблице. Работа автора выложена здесь: http://ithelp.moy.su/publ/proekty/avtonomnyj_telefonnyj_spravochnik/8-1-0-2

    ОтветитьУдалить