LOTUSSCRIPT/COM/OLE CLASSES
Examples: AdministrationServer property
1. 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
2. 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
See Also
AdministrationServer property
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary