add surname and guid to users, filter users and groups

This commit is contained in:
Jonathan Jenne
2019-11-08 14:52:15 +01:00
parent faa86ed0be
commit 68dfc365ee
5 changed files with 75 additions and 19 deletions

View File

@@ -1,7 +1,14 @@
Public Class ADSyncArgs
Inherits JobArgs
''' <summary>
''' LDAP URI that acts as the root node of searches, ex: LDAP://DIGITALDATA
''' </summary>
Public RootPath As String
Public UserFilter As String
Public GroupFilter As String
Public DisableFirebird As String
Public DisableMSSQL As String
End Class

View File

@@ -16,7 +16,7 @@ Public Class ADSyncJob
Dim oJobName As String = [GetType]().Name
Try
Dim oSync = New ActiveDirectoryInterface(_LogConfig, _Firebird, _MSSQL, Arguments.RootPath)
Dim oSync = New ActiveDirectoryInterface(_LogConfig, Arguments.RootPath)
_Logger.Info("Running job {0}", oJobName)
@@ -25,13 +25,13 @@ Public Class ADSyncJob
Exit Sub
End If
Dim oGroups = GetGroups()
Dim oGroups = GetGroups(Arguments.GroupFilter)
Dim oAttributeMappings = GetAttributeMappings()
_Logger.Debug("Found {0} Groups", oGroups)
For Each oGroup In oGroups
_Logger.Debug("Syncing Group {0}", oGroup)
Dim oSyncedUsers = oSync.SyncUsersForGroup(oGroup, oAttributeMappings)
Dim oSyncedUsers = oSync.SyncUsersForGroup(oGroup, oAttributeMappings, _Firebird, _MSSQL, Arguments.UserFilter)
If oSyncedUsers Is Nothing Then
_Logger.Warn("Group {0} could not be synced!", oGroup)