Examples: LockHolders property (NotesAgent - LotusScript®)

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"
    Forall h In holders
      msg$ = msg$ & h & Chr(13)
    End Forall
    Messagebox msg$,, "Lock holders"
  End If
End Sub