Телефонный справочник сотрудников на базе 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/