Adds or removes one or more users from the Application Administrator role.
<HsvSecurityAccess>.AddOrRemoveApplicationAdministrators2 varabstrUserSIDs, varabAdd
The following subroutine adds the specified users to the Application Administrator role. The subroutine takes an array of security identifiers.
Sub addAdmins(saSIDs() As String) Dim cSecurity As HsvSecurityAccess, bAdd() As Boolean 'g_cSession is an HsvSession object reference Set cSecurity = g_cSession.Security ReDim bAdd(UBound(saSIDs)) For i = LBound(saSIDs) To UBound(saSIDs) bAdd(i) = True Next i cSecurity.AddOrRemoveApplicationAdministrators2 saSIDs, bAdd End Sub