Examples: AdministrationServer property (NotesACL - LotusScript®)
- This agent displays the administration server for the current
database.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
If acl.AdministrationServer <> "" Then
Messagebox acl.AdministrationServer,, _
"Administration server"
Else
Messagebox "No administration server",, _
"Administration server"
End If
End Sub
- This view action toggles the administration server for the current
database.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
If acl.AdministrationServer = "Software_Server" Then
acl.AdministrationServer = "Company_Server"
Else
acl.AdministrationServer = "Software_Server"
End If
Call acl.Save()
End Sub
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.