Прочитала множество тем, но решения не нашла
Групп в АК очень много, к сажалению раньше удаляли просто DEL, а теперь используется Adminp
В нруппах много сотрудников , которых в реальности нет.
Как можно их удалить из групп?

 

1KIA

ну а еталонная група в которой есть только работающие сотрудники имеется? если да тогда можно удалить мертвие души)

 

Cleric-Lviv
нет к сожалению (если я правильно поняла), но такой группы нет, т.е. группы, в которой перечислены все сотрудники и который 100% имеются в АК

 

Прочитала множество тем, но решения не нашла
Групп в АК очень много, к сажалению раньше удаляли просто DEL, а теперь используется Adminp
В нруппах много сотрудников , которых в реальности нет.
Как можно их удалить из групп?

Если я правильно понял, то раньше с помощью "просто DEL" удаляли пользователей и они теперь висят в группах "мертвыми душами"?
Если так, можно написать агента, который перебирает категории представления "($ServerAccess)" и ищет соответствующего пользователя в представлении "($VIMPeople)" (учитывая, что во втором случае имена в сокращённой форме). Если имя найдено, то всё ОК, если нет — открывать все документы групп соответствующей категории и удалять оттуда "нереального" пользователя.

 

nvy
да вы верно меня поняли, именно от мертвых душ и надо избавиться
вот на другом сайте нашла пример

Sub Initialize
Dim s As New NotesSession 
Dim db As NotesDatabase 
Dim dc As NotesDocumentCollection 
Dim dt As New NotesDateTime("01/01/80") 
Dim doc As NotesDocument 
Dim item As NotesItem 

Set db = s.CurrentDatabase 
Set dc = db.Search("Form = 'Person'",dt, 0) 

For i = 1 To dc.Count 
Set doc = dc.GetNthDocument(i)
Print "Working on... " + doc.FullName(0) 
Call doc.ComputeWithForm(False, False) 

Dim nabFullNameView As NotesView
Dim nabServerAccessView As NotesView
Dim nabPerson1 As NotesView

Set nabFullNameView = db.GetView("($LDAPCN)")
Set nabServerAccessView = db.GetView("($ServerAccess)")
Set nabPerson1 = db.GetView("($VIMPeople)")

Call nabFullNameView.Refresh
Call nabServerAccessView.Refresh
Call nabPerson1.Refresh

Call s.Close

Call doc.ReplaceItemValue("Status","Processed")
Call doc.Save(True, True)

Next 

Messagebox "Agent is finished running.", 0, "Lotus Notes" 

End Sub

только в примере присваивают статус, а мне необходимо удалять....

 

For i = 1 To dc.Count Set doc = dc.GetNthDocument(i)

отрубать руки

Call nabFullNameView.Refresh
Call nabServerAccessView.Refresh
Call nabPerson1.Refresh

Call s.Close

это ваще перлы... в цикле!
так никаких процов не напасёшся, на таких "писателей"

 

я всё понимаю..., но прошёл год! с момента регистрации и куча постов на форуме, а до сих пор - странные вопросы и код...

 

спасибо, за помощь
Удалила все не нужное. Сделала сравнение и переместила ФИО "мертвых" в файл и потом самостоятельно уже (вручную) правила, т.к. не всех необходимо было удалять, некоторым просто необходимы были правки их ФИО

 

Чтобы на будущее всё автоматом чистило/переименовывало можно в адресных книгах: ACL -> Advanced -> "Action" для админсервера поставить значение "Modify all Names fields".