Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBScript/JScript/WSH/WMI/HTA

Войти
Регистрация
Восстановить пароль
 
Pokul
#1

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

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

Добрый день.

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

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

Восстановление lotus notes - Софт
Всем привет, есть люди сталкивающиеся ранее с проблемами открытия файла в программе Lotus Notes 8.5? Конкретно высветилась ошибка чтения...

Программирование в Lotus Notes - Lotus
Всем привет! Ребята, подскажите, есть ли какая-то хорошая литература по программированию в Lotus, обучающие пособия по нему? Абсолютно не...

Кто работал с VB и Lotus Notes ? - Lotus
Rabotal li kto-nibud' s Lotus-om?

SQL Server сообщения через Lotus Notes - SQL Server
Добрый день. Может ищу решение задачи по рассылке писем SQL Server-ом через Lotus Notes каким-нибудь пользователям? Буду рад любым...

Где можно посмотреть описания к объектам и методам Lotus notes Domino? - Lotus
Уважаемые форумчане, кто может подсказать где можно посмотреть описания к объектам и методам Lotus notes Domino.

СЭД на Lotus за и против или стоит ли внедрять документооборот на Lotus? - Lotus
Здравствуйте, озадачился заменой устаревшей СЭД (ДоксВижн) на новую. Рассматриваем платформенные СЭД, в том числе на Lotus.Но...

1
Ruslan280
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
пишите <удалено>
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2013, 10:52
Привет! Вот еще темы с ответами:

Tomcat и Lotus, такое ощущение что не находит lotus.jar. Как с этим бороться??? - Lotus
Всем доброго дня! Осуществляем взаимодействие по технологии SOAP, используя Tomcat. Выдает ошибку: java.lang.NoClassDefFoundError:...

Как осуществить ввод данных в базу Lotes Notes с Web-клиента? - Java
Необходимо с помощью формы вводить через IE данные в базу Lotes Notes. Как это можно сделать, что бы на сервере оставались данные формата...

Загрузка данных, построение графика, сохранение и очистка данных - Delphi
здравствуйте, нужно написать программу, в которой будет построение графика, кнопки: загрузка данных, нарисовать график, сохранение данных и...

Извлечение данных с сайта и загрузка этих данных в эксель - VBA
Всем доброго суток. Вопрос такого плана. Есть подраздел на сайте. В качестве примера рассмотрим сайт НБА (nba.com). Там есть раздел...


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

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

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