• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Private Folder

  • Автор темы wowa
  • Дата начала
W

wowa

На форме я провожу поиск... Там же на форме встроена в таблицу папка
Найденные документы заносятся в папку и отображаются пользователю
Но в это время в поиск может зайти еще один пользователь и увидит что папка заполнена другими документами, которые нашел первый пользователь
КАк можно это исправить?
ТАм есть при создании папки свойства типа private.... и т.д.... это то?
 
W

wowa

Для: Medevic
Просто Private???
там есть shared, private on first use и т.д.
 
W

wowa

Я сделал папку Private
НАсколько я понимаю, то эту папку никто не видит кроме меня...????
когда я выполняю поиск доков то эти доки заносятся в папку.
А когда другой пользователь, то эту папку не находит

Код:
	 Dim vwecCollection 	As NotesViewEntryCollection
Set vwFolder = db.GetView( "Search" )
Set vwecCollection = vwFolder.AllEntries
Call vwecCollection.RemoveAllFromFolder( "Search" )
Call vwFolder.Refresh()

КАк выйти из этой ситуации?
в Коде создавать эту папку что-ли????
 
R

root

Для: Medevic
То есть Private имеют доступ только кто создал, а shared создается после первого использования. Так ?
 
W

wowa

Для: root
выходит что так, т.к. другой пользователь ее не видит !!!
Вот я и спрашиваю, получается каждому пользователю с помощью кода ,нужно создавать эту папку?
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
<!--QuoteBegin-root+12:09:2007, 17:27 -->
<span class="vbquote">(root @ 12:09:2007, 17:27 )</span><!--QuoteEBegin-->То есть Private имеют доступ только кто создал, а shared создается после первого использования. Так ?
[snapback]78031" rel="nofollow" target="_blank[/snapback]​
[/quote]
Типа того. Shared, [desktop] private on first use выглядит общей (т.е. доступна всем), но при первом использовании создается такая же личная папка.
<!--QuoteBegin-wowa+12:09:2007, 17:48 -->
<span class="vbquote">(wowa @ 12:09:2007, 17:48 )</span><!--QuoteEBegin-->Вот я и спрашиваю, получается каждому пользователю с помощью кода ,нужно создавать эту папку?
[snapback]78037" rel="nofollow" target="_blank[/snapback]​
[/quote]
Нет необходимости. Используй Shared, [desktop] private on first use папки.
 
W

wowa

Для: Medevic
Если Shared, [desktop] private on first use папки.
Вначале перед работой на форме я пытаюсь очистить папку.
и в PostOpen запихиваю:
Код:
Dim vwecCollection 		As NotesViewEntryCollection
Set vwFolder = db.GetView( "Search" )
Set vwecCollection = vwFolder.AllEntries
Call vwecCollection.RemoveAllFromFolder( "Search" )
Call vwFolder.Refresh()

Оно не находит Set vwFolder = db.GetView( "Search" )
В чем тут могут быть проблемы и как можно избавиться?
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Используй Shared, private on first use (не desktop) папки.
 
W

wowa

<!--QuoteBegin-Medevic+13:09:2007, 09:04 -->
<span class="vbquote">(Medevic @ 13:09:2007, 09:04 )</span><!--QuoteEBegin-->Используй Shared, private on first use (не desktop) папки.
[snapback]78093" rel="nofollow" target="_blank[/snapback]​
[/quote]
я так сделал, и у меня все нормально работает
Но когда другой пользователь работает, то у него ошибка в этом месте:
<!--QuoteBegin-wowa+13:09:2007, 08:33 -->
<span class="vbquote">(wowa @ 13:09:2007, 08:33 )</span><!--QuoteEBegin-->Оно не находит Set vwFolder = db.GetView( "Search" )
В чем тут могут быть проблемы и как можно избавиться?
[snapback]78085" rel="nofollow" target="_blank[/snapback]​
[/quote]
 
W

wowa

Для: Medevic
в чем тут могут быть проблемы?????
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Для: wowa
В ACL галка на "Create personal folders/views" стоит ?
 
W

wowa

Для: Medevic
стоит!
Второй пользователь в дизайнере видит эту папку ,но получить ее чего-то не может
 
W

wowa

Для: Medevic
скажи, а если сделать, чтобы вначале кодом папка создавалась и она была просто private, а потом ее удалять?
Можно ли создать так???
Будет ли все нормально?
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
<!--QuoteBegin-wowa+13:09:2007, 15:30 -->
<span class="vbquote">(wowa @ 13:09:2007, 15:30 )</span><!--QuoteEBegin-->Второй пользователь в дизайнере видит эту папку ,но получить ее чего-то не может
[snapback]78208" rel="nofollow" target="_blank[/snapback]​
[/quote]
Как не может? Т.е. в чем это проявляется?

<!--QuoteBegin-wowa+14:09:2007, 10:09 -->
<span class="vbquote">(wowa @ 14:09:2007, 10:09 )</span><!--QuoteEBegin-->скажи, а если сделать, чтобы вначале кодом папка создавалась и она была просто private, а потом ее удалять?
Можно ли создать так???
[snapback]78271" rel="nofollow" target="_blank[/snapback]​
[/quote]
Можно и так.
 
W

wowa

<!--QuoteBegin-Medevic+14:09:2007, 10:35 -->
<span class="vbquote">(Medevic @ 14:09:2007, 10:35 )</span><!--QuoteEBegin-->Т.е. в чем это проявляется?
[snapback]78282" rel="nofollow" target="_blank[/snapback]​
[/quote]
Set vwFolder = db.GetView( "Search" )
Пусто! НЕ получает ее..
 
W

wowa

Для: Medevic
Но все же , если придется private, как создать приватную папку??
НА форуме нашел твой код создания папки, вот такой код:
Код:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim newview As NotesView
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set view = db.GetView("Папка-шаблон")
Set doc = db.GetDocumentByUNID(view.UniversalID)
Set doc = doc.CopyToDatabase(db)
Call doc.ReplaceItemValue("$TITLE", "Новая папка")
Call doc.ReplaceItemValue("$Name", "Новая папка")
Call doc.Save(True, True)
End Sub


НО а приватную папку?
И как потом ее удалить?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!