How to make an add-in available only to a certain group?

Sure Tim,

Here's my code -

Public Sub GetAddInInfo(ByRef poInfo As EdmLib.EdmAddInInfo, ByVal poVault As EdmLib.IEdmVault5, ByVal poCmdMgr As EdmLib.IEdmCmdMgr5) Implements EdmLib.IEdmAddIn5.GetAddInInfo

        ' Set the add-in properties
        poInfo.mbsAddInName = "Test"
        poInfo.mbsCompany = "My Company"
        poInfo.mbsDescription = "Test Add-in"
        poInfo.mlAddInVersion = 1
        poInfo.mlRequiredVersionMajor = 7
        poInfo.mlRequiredVersionMinor = 0

        ' See if the user is allowed to access the addin

        If UserCheck(strUserName, poVault) = True Then
            ' Add hooks
            poCmdMgr.AddCmd(1000, "Test", 1)
        End If

    End Sub

    Private Function UserCheck(ByVal strUser As String, ByVal vault As EdmLib.IEdmVault5) As Boolean

        ' Create a list of user groups that the add-in will be available to
        Dim lstGroups As New List(Of String)
        lstGroups.Add("Administrators")
        lstGroups.Add("Managers")

        ' Loop through the groups and check if the user is a member
        For Each strGroup As String In lstGroups
            Dim userMgr As IEdmUserMgr5
            userMgr = vault
            Dim group As IEdmUserGroup5
            group = userMgr.GetUserGroup(strGroup)

            ' Loop through the users in this group

            Dim pos As IEdmPos5
            pos = group.GetFirstUserPosition

            While Not pos.IsNull
                Dim user As IEdmUser5
                user = group.GetNextUser(pos)
                If user.Name = strUser Then

                ' User is in this group
                    Return True
                End If
            End While
        Next

        ' User wasn't found in any of the groups
        Return False
    End Function