Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Pokul
0 / 0 / 0
Регистрация: 26.10.2013
Сообщений: 1
1

Загрузка данных в AD из Lotus Notes

29.10.2013, 16:07. Просмотров 1011. Ответов 1
Метки нет (Все метки)

Добрый день.

Задача: Необходимо по расписанию обновлять некоторые поля пользователей в AD, а именно: Должность, Отдел, Телефон, Комната. Взять актуальные данные необходимо из Lotus'а (именно там коллеги из СУП'а ведут базу по сотрудникам).

Есть сценарий на PowerShell'е, но для его выполнения, необходимо руками выгружать данные из Lotus'а, далее немного править их и только после этого можно запускать сценарий для внесения изменений для всех пользователей AD. Все бы ничего и меня это вполне устраивает, но начальство не унимается и хочет автоматизировать задачу .
Вопрос: как автоматически выгружать данные из Lotus'а (только нужные поля) и далее загружать эти данные в AD? Если не посредством PS, так может vbs какой подскажете?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2013, 16:07
Ответы с готовыми решениями:

Lotus Notes
Здравствуйте, у меня вопрос такой: есть таблица, в неё вставлена подформа,...

Lotus Notes
оставляйте свои коменты.....будем учиться на чужих ошибках если есть чем...

Lotus Notes Domino 7.0.3
Виндусовые сервер и все клиенты Название: server_703.part1.rar Размер: 100...

Lotus Domino/Notes
Администрирую Lotus Domino/Notes R5 сеть. Есть опыт программирования на Lotus...

Lotus Notes And Domino 8.5 Now Available
Lotus Notes and Domino 8.5 now available Информация для размышления ...

1
Ruslan280
0 / 0 / 0
Регистрация: 15.12.2013
Сообщений: 1
19.12.2013, 10:52 2
интересная задача. могу реализовать. есть несколько вариантов -
1- доделать powershell скрипт чтобы он брал данные из лотуса сразу
2 - сделать отдельный vbs-скрипт, который будет брать данные из лотуса и кидать их в ad
3 - написать lotus-агент и запускать его прям на серваке лотус по расписанию

чтобы узнать откуда брать данные создайте и запустите этот агент выделив любого человека в своем лотусовом справочнике (он выгрузит все поля и их значения в блокнот)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Initialize
     'вывод всех полей выделенного дока в блокнот
    On Error Goto errh
    
    Dim db As NotesDatabase
    Dim s As New NotesSession
    Dim doc As NotesDocument
    Dim cc As NotesDocumentCollection
    Dim ws As New NotesUIWorkspace
    Dim col
    
    Dim fileNum As Integer, empNumber As Integer
    Dim fileName As String, empName As String
    
    podr=Msgbox("без подробностей?",4)
    
    fileNum% = Freefile()
    td=Environ("TEMP")
    unik = Evaluate("@Unique")
    tf = Strtoken(unik(0), "-", -1)     ' drop the username part of the ID which is always the same for this user
    
    filename$=td & "\" & tf & ".txt"
    Open fileName$ For Output As fileNum%
    
    Set db=s.CurrentDatabase
    Set cc=db.UnprocessedDocuments
    Set doc = cc.GetFirstDocument
    
    Forall i In doc.Items
        tip= "Authors=" & Cstr(i.isauthors)  & " Readers="& Cstr(i.isreaders) & " summary=" & Cstr(i.issummary) & " размер=" & Replace(Cstr(Round(i.valuelength/1024,2)),",","0,") &  " KB" & " lastmodif=" & i.lastmodified
            
        If podr=6 Then
            Write #filenum,i.Name,i.Text
        Else
            Write #filenum,i.Name,tip,i.Text
        End If
        
    End Forall
    
    Close #filenum
    result=Shell({cmd.exe /c "} & filename$ &{"})
    
e:
    Exit Sub
errh:
    Msgbox Error & Erl
    Resume e
End Sub
пишите <удалено>
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2013, 10:52

Lotus Notes Client
Доброго времени суток, друзья! в общем работаю с Электронным архивом...

из Kmail в Lotus Notes 8.5
Господа, подскажите, плз, как импортировать учетные записи и почту из Kmail в...

Lotus Notes Foundations
Добрый день! Никто не устанавливал Lotus Notes Foundations? Меня интересует...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru