Examples: InternetLevel property (NotesACL - LotusScript®)

This script obtains the maximum Internet access level for the current database and displays it in a message. If the access level is Manager, the script changes it to Designer.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Messagebox acl.InternetLevel
If acl.InternetLevel = ACLLEVEL_MANAGER Then
  acl.InternetLevel = ACLLEVEL_DESIGNER
End If
Call acl.Save