Kofax DM API - Manual (Page 191)

DM API M ETHODS AND P ROPERTIES 171
FetchTrustees
Set objDOC = CreateObject( _
"PCDClient. PCDDocObject ")
'Create the property list object.
Dim objPropList As New PCDPropertyList
'Set the library.
objDOC. SetProperty "%TARGET_LIBRARY", strLib
'Set the DST.
objDOC. SetDST strDST
'Set the Form.
objDOC. SetObjectType "DEF_PROF"
'Identify the document object whose trustee
'properties are to be updated.
objDOC. SetProperty "%OBJECT_IDENTIFIER", _
txtDocNum.Text
'Create variables to store security data.
Dim LDefaultRights As Long
Dim LEffectiveRights As Long
Dim LAccessControl As Long
'Get the document.
objDOC. Fetch
'Check for any errors.
If objDOC. ErrNumber <> 0 Then
lstResultSet.AddItem "Unable to fetch doc: " _
& txtDocNum.Text
GoTo bye
End If
'Retrieve properties from the fetched document.
Set objPropList = objDOC. GetReturnProperties
'Store the results.