LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsPublic property
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" )

See Also