LOTUSSCRIPT/COM/OLE CLASSES

Examples: LockHolders property
This view agent displays the lock holders for the agent named "Main Agent."

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 
 REM Exit if locking is not enabled
 If Not db.IsDesignLockingEnabled Then
   Print "Design locking not enabled"
   Exit Sub
 End If
 
 REM Get agent
 Dim agent As NotesAgent
 Set agent = db.GetAgent("Main Agent")
 
 REM Display lock holders
 holders = agent.LockHolders
 If holders(0) = "" Then
   Messagebox "None",, "Lock holders"
 Else
   Forall h In holders
     msg$ = msg$ & h & Chr(13)
   End Forall
   Messagebox msg$,, "Lock holders"
 End If
End Sub

See Also