VB脚本组件添加用户至角色失败：用户未成功加入

看起来你的脚本逻辑方向是对的，但有几个关键细节可能导致用户没有被添加到角色成员列表中——即使脚本没报错。我来逐一拆解：

1. 先确认角色对象是否被正确找到 #

你用amoDatabase.Model.Roles.Find(...)获取角色，但如果目标角色不存在，amoRole会变成Nothing，后续的amoRole.Members.Add(RM)操作根本不会执行，而且因为被Try块包裹，也不会抛出错误提醒你。

修复方法：在添加成员前加个判断：

amoRole = amoDatabase.Model.Roles.Find(Dts.Variables("SecurityGroupName").Value.ToString)
If amoRole Is Nothing Then
    Throw New Exception($"Role {Dts.Variables("SecurityGroupName").Value.ToString} not found in database {dbName}")
End If

2. 确保Update操作覆盖角色的修改 #

默认的amoDatabase.Update()可能不会递归提交角色成员的变化，你需要指定更新选项来确保所有嵌套对象的修改都被同步到服务器：

amoDatabase.Update(AMO.UpdateOptions.ExpandFull)

或者更精准地直接更新角色对象：

amoRole.Update()

3. 验证WindowsModelRoleMember的格式 #

你用了XXX\test001这种域\用户名格式，但有些环境下AMO可能需要用户的用户主体名称（UPN）（比如test001@XXX.com），尤其是跨域或Azure AD场景。可以两种格式都测试下，确认哪种适配你的环境。

4. 检查运行账户的权限 #

确保SSIS包运行时使用的账户有修改表格数据库角色成员的权限。如果权限不足，AMO可能不会抛出错误，但修改不会实际生效。

完整修正后的核心代码示例 #

Dim amoServer As New AMO.Server
Dim amoDatabase As AMO.Database
Dim amoRole As AMO.ModelRole

amoServer.Connect(serverName)
amoDatabase = amoServer.Databases.FindByName(dbName)

' 先确认数据库存在
If amoDatabase Is Nothing Then
    Throw New Exception($"Database {dbName} not found on server {serverName}")
End If

amoRole = amoDatabase.Model.Roles.Find(Dts.Variables("SecurityGroupName").Value.ToString)
' 确认角色存在
If amoRole Is Nothing Then
    Throw New Exception($"Role {Dts.Variables("SecurityGroupName").Value.ToString} not found in database {dbName}")
End If

Dim login As String = "XXX\test001"
Dim action As String = "Granted"

If action = "Granted" Then
    Dim RM As New AMO.WindowsModelRoleMember()
    RM.MemberName = login
    ' 避免重复添加相同成员
    If Not amoRole.Members.Cast(Of AMO.WindowsModelRoleMember)().Any(Function(m) m.MemberName.Equals(login, StringComparison.OrdinalIgnoreCase)) Then
        amoRole.Members.Add(RM)
        ' 直接更新角色确保修改生效
        amoRole.Update()
    End If
End If

' 记得断开连接释放资源
amoServer.Disconnect()

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