Понедельник | 21 Мая 2012

3CX Phone System Multi Tenant v10

До 10 АТС на одной платформе
Независимое управление
Независимое резервное копирование
Не требует доп. лицензий Windows
Бесплатно

Подробнее

Вебинар по 3CX - 15/06/2012

Обзор возможностей 3CX v11
Ценовая политика
Дополнительные приложения
Рекомендованное оборудование
SIP-домофоны

Скачать

3CX Phone System v10

Добавлен кодек G.722
Настройка телефонов Plug&Play
Функции Call-центра
Class of Service для групп
Улучшенная безопасность
Уведомление о событиях по email
Новая консоль MyPhone

Скачать

Интеграция с 1С

Передача номера из 3CX в 1С
Управление вызовами из 1С
Не привязан к конфигурации 1С
Бесплатное демо

Заказать

SIP-видеодомофоны

Поддержка SIP
Питание через PoE
Один порт 10/100 Ethernet
Видеокодеки H.263 и MPEG-4
Аудиокодеки G.729A/B и G.711

Последние новости

Подписка на новости

RSS новости

Телефонный справочник из Active Directory

Скрипт извлекает из учетной записи пользователя 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()

Скачать исходный файл