Modules.Interfaces: Version 1.0.2.0

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

Modules.Interfaces/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.1.0")>
+<Assembly: AssemblyVersion("1.0.2.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>