AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

remove users from group on sync

Browse Source
This commit is contained in:
Jonathan Jenne
2020-04-09 12:36:19 +02:00
parent 84ebac00a9
commit b1f7883757
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb
View File

@@ -106,13 +106,14 @@ Namespace SyncUsers
oSyncedUsers.Add(oUser) oSyncedUsers.Add(oUser)
Next Next
' Delete users that are assigned to the group but no longer exist in active directory
Dim oUserIdString = String.Join(",", oSyncedUserIds) Dim oUserIdString = String.Join(",", oSyncedUserIds)
Dim oSQL As String = $"SELECT COUNT(*) FROM TBDD_GROUPS_USER WHERE USER_ID NOT IN (${oUserIdString}) AND GROUP_ID = {oGroupId}" Dim oSQL As String = $"DELETE FROM TBDD_GROUPS_USER WHERE USER_ID NOT IN (${oUserIdString}) AND GROUP_ID = {oGroupId}"
Dim oDeletedRelations = _mssql.GetScalarValue(oSQL) Dim oDeletedRelations = _mssql.GetScalarValue(oSQL)
_logger.Info("Deleted [{0}] user to group relations [TEST RUN]", oDeletedRelations)
_logger.Info("Created [{0}] new users", oCreatedUsers.Count) _logger.Info("Created [{0}] new users", oCreatedUsers.Count)
_logger.Info("Updated [{0}] users", oUpdatedUsers.Count) _logger.Info("Updated [{0}] users", oUpdatedUsers.Count)
_logger.Info("Removed [{0}] users from Group [{1}]", oDeletedRelations, GroupName)
Return oSyncedUsers Return oSyncedUsers
End Function End Function