LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim acl As NotesACL Dim entry As NotesACLEntry Set db = session.CurrentDatabase Set acl = db.ACL Set entry = acl.GetEntry("Jaba/East/ACME") If entry.IsServer Then Messagebox entry.Name & " is a server." Else Messagebox entry.Name & " is not a server." End If Call acl.Save
See Also