MS SyncUsers

Modules.Interfaces/ActiveDirectoryInterface.vb

@@ -64,11 +64,6 @@ Public Class ActiveDirectoryInterface
             Return Nothing
         End Try
 
-        If oUsers.Count = 0 Then
-            _logger.Debug("Group {0} does not contain any users.", GroupName)
-            Return oUsers
-        End If
-
         ' Do the actual sync into firebird
         If Firebird IsNot Nothing Then
             oSyncedUsersFirebird = oFirebirdSync.SyncUsers(GroupName, oUsers, AttributeMappings)

Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.MSSQL.vb

@@ -113,6 +113,7 @@ Namespace SyncUsers
             ' Delete users that are assigned to the group but no longer exist in active directory
             Dim oUserIdString = String.Join(",", oSyncedUserIds)
             If oSyncedUserIds.Count = 0 Then
+                _logger.Info("Group {0} does not contain any users.", GroupName)
                 oUserIdString = 0
             End If
             Dim oSQL As String = $"DELETE FROM TBDD_GROUPS_USER WHERE USER_ID NOT IN ({oUserIdString}) AND GROUP_ID = {oGroupId}"

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.7.0.0")>
-<Assembly: AssemblyFileVersion("1.7.0.0")>
+<Assembly: AssemblyVersion("1.7.1.0")>
+<Assembly: AssemblyFileVersion("1.7.1.0")>