From b1f7883757dd3b2d4e6cda9ac16de956bd935890 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 9 Apr 2020 12:36:19 +0200 Subject: [PATCH] remove users from group on sync --- .../ActiveDirectoryInterface/SyncUsers.MSSQL.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb b/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb index 1d57e2d3..16954f2b 100644 --- a/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb +++ b/Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb @@ -106,13 +106,14 @@ Namespace SyncUsers oSyncedUsers.Add(oUser) Next + ' Delete users that are assigned to the group but no longer exist in active directory 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) - _logger.Info("Deleted [{0}] user to group relations [TEST RUN]", oDeletedRelations) _logger.Info("Created [{0}] new users", oCreatedUsers.Count) _logger.Info("Updated [{0}] users", oUpdatedUsers.Count) + _logger.Info("Removed [{0}] users from Group [{1}]", oDeletedRelations, GroupName) Return oSyncedUsers End Function