Серый форум — VBS: 1C ЗиК -> AD

Re: VBS: 1C ЗиК -> AD

null@example.com (alexii) — Sun, 17 Jul 2011 17:28:56 +0000

SlaDER, как уже советовали — просто добавьте необходимый код непосредственно в процедуру «ПриЗаписи()» в модуль формы элемента справочника «Сотрудники». Проверяйте и, затем, исправляйте или добавляйте.

Re: VBS: 1C ЗиК -> AD

null@example.com (SlaDER) — Sun, 17 Jul 2011 14:31:22 +0000

The gray Cardinal пишет:

Что значит "снизить нагрузку на AD" я не понял. Лучше привести уже готовый код и указать в нём места, которые кажутся неоптимальными.
Кстати, я бы вообще из 1С ничего не выгружал, а работал бы с AD прямо в коде 1С. На форме элемента справочника Сотрудники сделать кнопку "засунуть в AD" или что-то в этом роде.

Попробую объяснить на простом примере, есть код:

dim qQuery
dim objConnection
dim objCommand
dim objRecordSet
dim objRegExp
dim ReturnVal

qQuery = ";" & _
        "(&(objectCategory=user)(cn=" & returnString(0) & ")(!(userAccountControl:1.2.840.113556.1.4.803:=2)))" & _
       ";distinguishedName,name,sAMAccountName,cn,otherMailbox,mail,title,company,department,telephoneNumber;subtree;"

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Open "Provider=ADsDSOObject;"
objCommand.ActiveConnection = objConnection
objCommand.CommandText = qQuery
Set objRecordSet = objCommand.Execute

While Not objRecordSet.EOF
    Wscript.Echo objRecordSet.Fields("cn")
    objRecordSet.MoveNext
Wend

objConnection.Close

Допустим, что returnString(0) - это считанное из файла ФИО. Получается, что мы будем искать каждое ФИО в AD.

Вопрос не проще ли будет допустим выгружать всех сотрудников из AD(например раз в сутки) в текстовый файл, а потом сравнивать выгрузку из 1С и данный файлик. При необходимости обновим данные в AD.

Re: VBS: 1C ЗиК -> AD

null@example.com (dab00) — Sun, 17 Jul 2011 13:20:22 +0000

А я бы пас появление файла выгрузки в каталоге - например каждые 60 секунд.
Запуск скрипта можно организовать так:
- логон-скрипт
- автозагрузка
- в качестве службы при помощи srvany от Марка Руссиновича
Файл появился - читаем данные в массив и файл можно удалить.
"Снизить нагрузку" сводится к выбору провайдера ADSI. Не знаю какой в Вашей ситуации лучше подойдет: WinNT или LDAP. И тот и другой по-моему не особенно быстро работают. Останется только получить нужный контейнер и отработать с его свойствами и методами.

Re: VBS: 1C ЗиК -> AD

null@example.com (The gray Cardinal) — Sun, 17 Jul 2011 12:54:08 +0000

Что значит "снизить нагрузку на AD" я не понял. Лучше привести уже готовый код и указать в нём места, которые кажутся неоптимальными.
Кстати, я бы вообще из 1С ничего не выгружал, а работал бы с AD прямо в коде 1С. На форме элемента справочника Сотрудники сделать кнопку "засунуть в AD" или что-то в этом роде.

VBS: 1C ЗиК -> AD

null@example.com (SlaDER) — Sun, 17 Jul 2011 10:49:31 +0000

Привет всем! Возникла следующая идея, автоматизировать обновление/заведение пользователей в AD.

Смысл следующий раз в день выгружать из 1С ЗиК (или любой другой ИС.) список пользователей в текстовый файлик:
---
Табельный номер ФИО Отдел Сокращение Должность Роль Регион Обособленное подразделение Дата актуализации изменений Название организации
ФБк0000279 Иванова Юлия Ивановна Отдел городских продаж ОГП Мерчендайзер Мерчендайзер Башкирский филиал Башкирский филиал 22.04.2011 03:30:55 БФ ООО «Рога и Копыта»
---

Затем скриптом считывать из него и производить обновление/заведение пользователей. Как это реализовать я знаю.
В моем подходе я каждого пользователя ищи в AD сравниваю поля, потом проверяю дату актуальности и при необходимости изменяю поля.

Вопрос в следующем, как можно максимально снизить нагрузку на AD?