LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim acl As NotesACL Dim acle As NotesACLEntry Set db = session.CurrentDatabase Set acl = db.ACL REM See if there is an administration server adminExists = False Set acle = acl.GetFirstEntry Do While Not(acle Is Nothing) If acle.IsAdminServer Then adminExists = True Exit Do End If Set acle = acl.GetNextEntry(acle) Loop REM Remove current admin server if not stormy If adminExists Then If Instr(Lcase(acle.Name), "stormy") Then Messagebox "Admin server is already stormy",, "All set" Exit Sub Else acle.IsAdminServer = False Call acle.Remove End If End If REM Make stormy admin server Set acle = acl.GetEntry("stormy/UNIX/Notes") If acle Is Nothing Then Set acle = acl.CreateACLEntry("stormy/UNIX/Notes", _ ACLLEVEL_MANAGER) End If acle.IsAdminServer = True Call acl.Save End Sub
See Also