无管理员权限下如何通过脚本管理Office365私有组？

因为你是这些Office365私有组的创建者（所有者），无需全局管理员权限就能通过以下方式管理组成员：

1. 使用Outlook REST API（Python实现） #

Outlook REST API支持以委托权限（用户自身身份）访问自己拥有的组，无需管理员同意。你可以通过OAuth2授权码流程获取访问令牌，然后执行成员管理操作：

核心步骤： #

• 注册一个Azure AD个人应用，添加Group.ReadWrite.OwnedBy和GroupMember.ReadWrite.OwnedBy权限（这两个权限无需管理员同意）
• 用授权码流程获取访问令牌
• 调用API执行成员操作

Python代码示例： #

import requests

# 替换为你的访问令牌和目标组ID
access_token = "你的访问令牌"
group_id = "目标私有组的ID"

# 1. 列出组成员
list_url = f"https://graph.microsoft.com/v1.0/me/ownedGroups/{group_id}/members"
headers = {"Authorization": f"Bearer {access_token}"}
response = requests.get(list_url, headers=headers)
members = response.json()
print("组成员列表：", members)

# 2. 添加成员
add_url = f"https://graph.microsoft.com/v1.0/me/ownedGroups/{group_id}/members/$ref"
user_id = "要添加的用户ID"
payload = {
    "@odata.id": f"https://graph.microsoft.com/v1.0/users/{user_id}"
}
response = requests.post(add_url, json=payload, headers=headers)
print("添加成员结果：", response.status_code)

# 3. 移除成员
remove_url = f"https://graph.microsoft.com/v1.0/me/ownedGroups/{group_id}/members/{user_id}/$ref"
response = requests.delete(remove_url, headers=headers)
print("移除成员结果：", response.status_code)

注：me/ownedGroups仅返回你作为所有者的组，确保操作的是你创建的私有组。

2. 使用PowerShell + Exchange Online模块 #

作为组所有者，你可以直接通过Exchange Online PowerShell模块管理组成员，无需全局权限：

操作步骤： #

1. 安装Exchange Online模块：

Install-Module -Name ExchangeOnlineManagement -Force

2. 连接到Exchange Online（用你的账号登录）：

Connect-ExchangeOnline -UserPrincipalName your_email@domain.com

3. 执行成员管理操作：

# 列出组成员
Get-DistributionGroupMember -Identity "私有组名称"

# 添加成员
Add-DistributionGroupMember -Identity "私有组名称" -Member "user_email@domain.com"

# 移除成员
Remove-DistributionGroupMember -Identity "私有组名称" -Member "user_email@domain.com" -Confirm:$false

注：如果你的私有组是Microsoft 365组，可替换为Get-UnifiedGroupMember、Add-UnifiedGroupMember、Remove-UnifiedGroupMember命令。

3. Outlook VBA脚本（桌面客户端） #

如果你习惯用Outlook桌面端，也可以编写VBA脚本自动管理成员：

示例代码： #

Sub ManagePrivateGroupMembers()
    Dim olNamespace As Outlook.NameSpace
    Dim olGroup As Outlook.DistributionList
    Dim olMember As Outlook.Recipient
    
    Set olNamespace = Application.GetNamespace("MAPI")
    ' 替换为你的私有组名称
    Set olGroup = olNamespace.GetDefaultFolder(olFolderContacts).Items("私有组名称")
    
    ' 1. 列出成员
    Debug.Print "组成员："
    For Each olMember In olGroup.Members
        Debug.Print olMember.Name & " (" & olMember.Address & ")"
    Next
    
    ' 2. 添加成员
    Set olMember = olNamespace.CreateRecipient("user_email@domain.com")
    olMember.Resolve
    If olMember.Resolved Then
        olGroup.AddMember olMember
        olGroup.Save
        Debug.Print "成员添加成功"
    End If
    
    ' 3. 移除成员
    Set olMember = olNamespace.CreateRecipient("user_email@domain.com")
    olMember.Resolve
    If olMember.Resolved Then
        olGroup.RemoveMember olMember
        olGroup.Save
        Debug.Print "成员移除成功"
    End If
End Sub

注：需要在Outlook开发者选项中启用宏，运行前确保你是该组的所有者。

内容的提问来源于stack exchange，提问作者user22341