fix bug in jobrunner, adsync

This commit is contained in:
Jonathan Jenne
2020-01-09 16:43:31 +01:00
parent 0a7cdaa903
commit 8b84e7b9e4
3 changed files with 26 additions and 24 deletions

View File

@@ -25,18 +25,18 @@ Public Class ADSyncJob
Exit Sub
End If
Dim oGroups = GetGroups(Arguments.GroupFilter)
Dim oGroups = GetGroups()
Dim oAttributeMappings = GetAttributeMappings()
_Logger.Debug("Found {0} Groups", oGroups)
_Logger.Debug("Found {0} Groups", oGroups.Count)
For Each oGroup In oGroups
_Logger.Debug("Syncing Group {0}", oGroup)
_Logger.Debug("Syncing Group [{0}]", oGroup)
Dim oSyncedUsers = oSync.SyncUsersForGroup(oGroup, oAttributeMappings, _Firebird, _MSSQL, Arguments.UserFilter)
If oSyncedUsers Is Nothing Then
_Logger.Warn("Group {0} could not be synced!", oGroup)
_Logger.Warn("Group [{0}] could not be synced!", oGroup)
ElseIf oSyncedUsers.Count > 0 Then
_Logger.Info("Synced {0} users for group {1}", oSyncedUsers.Count, oGroup)
_Logger.Info("Synced [{0}] users for group [{1}]", oSyncedUsers.Count, oGroup)
End If
Next