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

JobRunner: add option to disable Firebird sync

Browse Source
This commit is contained in:
Jonathan Jenne
2019-04-30 16:54:04 +02:00
parent 50d205717f
commit 7d1c2ced5a
4 changed files with 24 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Jobs/EDMI/ADSync/ADSyncArgs.vb
View File

@@ -2,4 +2,6 @@
Inherits JobArgs
Public RootPath As String
Public DisableFirebird As String
Public DisableMSSQL As String
End Class

18
Jobs/EDMI/ADSync/ADSyncJob.vb
View File

@@ -1,7 +1,7 @@
Imports System.Collections.Generic
Imports System.Data
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Interfaces
Imports DigitalData.Modules.Jobs
Imports DigitalData.Modules.Logging
Public Class ADSyncJob
@@ -26,13 +26,21 @@ Public Class ADSyncJob
Exit Sub
End If
Dim oGroups As List(Of ADGroup) = oSync.ListGroups()
'Dim oGroups As List(Of ADGroup) = oSync.ListGroups()
_Logger.Debug("Found {0} Groups", oGroups.Count)
' 30.04.19: MSSQL als führendes System
Dim oGroups As New List(Of String)
Dim oDatatable = _MSSQL.GetDatatable("SELECT NAME FROM TBDD_GROUPS WHERE AD_SYNC = 1 AND ACTIVE = 1")
_Logger.Debug("Found {0} Groups", oDatatable.Rows.Count)
For Each oRow As DataRow In oDatatable.Rows
oGroups.Add(oRow.Item("NAME"))
Next
For Each oGroup In oGroups
_Logger.Debug("Syncing Group {0}", oGroup.Name)
Dim oSyncedUsers = oSync.SyncUsersForGroup(oGroup.Name)
_Logger.Debug("Syncing Group {0}", oGroup)
Dim oSyncedUsers = oSync.SyncUsersForGroup(oGroup)
If oSyncedUsers Is Nothing Then
_Logger.Warn("Group {0} could not be synced!", oGroup)