Як призначити права в скрипті картки DocsVision

Приклад призначення прав на картку з скрипта картки (через ADSI):

” Rights
iRights = &H1 + &H2 ” read+change!
aEmpl = Array (“DOMAINUser1″,”DOMAINUser2”)
” Get secure object
Set oSecureObj = UserSession.AccessManager.GetSecureCard (CardData.ID)
Set oSD = oSecureObj.ADsSecurityDescriptor
Set oDACL = oSD.DiscretionaryAcl

” remove old ace”s
Do
bFlag = False
For Each oACE In oDACL
oDACL.RemoveAce (oACE)
bFlag = True
Next
Loop Until bFlag = False

” Add Rights
For n = 0 To iCount
sEmpl = aEmpl(n)
If CStr(sEmpl) <> “” Then
Set oNewAce = CreateObject(“AccessControlEntry”)
oNewAce.AccessMask = iRights
oNewAce.AceType = 0 ” allowed
oNewAce.AceFlags = 2 “inherit
oNewAce.Trustee = sEmpl
oDACL.AddAce oNewAce
End If
Next
Set oSecureObj.ADsSecurityDescriptor = oSD

Список прав (всі значення є бітовою маскою і можуть підсумовуватися):

“000F001F”
Повний доступ

“00000001”
Читання даних об'єкта

“00000002”
Зміна даних об'єкта

“00000004”
Створення дочірніх об'єктів

“00000008”
Видалення дочірніх об'єктів

“00000010”
Копіювання об'єкта

“00010000”
Видалення об'єкта

“00020000”
Читання дозволів

“00040000”
Зміна дозволів

“00080000”
Зміна власника

“00020001”
Читання

“0000001E”
Зміна

“00010000”
Видалення

“000C0000”
Володіння

При призначенні прав у бізнес-процесі або з. Net додатків, потрібно користуватися методами. Net framework

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*