[LotusScript] 檢核資料庫ACL群組

 Sample Code:

Sub SetGroupPermissions()

    Dim session As New NotesSession

    Dim serverName As String

    Dim dbDirectory As NotesDbDirectory

    Dim database As NotesDatabase

    Dim acl As NotesACL

    Dim entry As NotesACLEntry

    

    serverName = session.CurrentDatabase.Server ' 取得目前伺服器名稱

    

    ' 開啟資料庫目錄

    Set dbDirectory = session.GetDbDirectory(serverName)

    

    ' 處理所有資料庫

    Set database = dbDirectory.GetFirstDatabase(DATABASE)

    While Not database Is Nothing

        ' 開啟 ACL

        Set acl = database.ACL

        

        ' 檢查群組是否已存在於 ACL 中

        Set entry = acl.GetEntry("DeclineAccess", True)

        If entry Is Nothing Then

            ' 如果群組不存在，創建一個新的 ACL設定

            Set entry = acl.CreateACLEntry("DeclineAccess", ACLLEVEL_NOACCESS)

        Else

            ' 如果群組已存在，設定權限級別為無權限

            Call entry.SetLevel(ACLLEVEL_NOACCESS)

        End If

        

        ' 將群組類型設為個人群組

        entry.IsPersonGroup = True        

        

        ' 更新 ACL

        Call acl.Save()

        

        ' 取得下一個資料庫

        Set database = dbDirectory.GetNextDatabase

    Wend

    

    MsgBox "群組權限設定完成。"

End Sub