Examples: IsPublic property (NotesAgent - LotusScript®)

This script counts the number of shared and private agents in the current database.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim sharedCount As Integer
Dim privateCount As Integer
Set db = session.CurrentDatabase
sharedCount = 0
privateCount = 0    
Forall a In db.Agents
  If a.IsPublic Then
    sharedCount = sharedCount + 1
  Else
    privateCount = privateCount + 1
  End If
End Forall
Messagebox _
( "There are " & sharedCount & " shared agents" )
Messagebox _
( "You have " & privateCount & " private agents" )