update active directory interface to sync to mssql and to sync custom attributes

Modules.Interfaces/ActiveDirectoryInterface/SyncUsers.Firebird.vb

@@ -0,0 +1,142 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Interfaces
+Imports DigitalData.Modules.Logging
+
+Namespace SyncUsers
+    Public Class Firebird
+        Implements ISyncUsers
+
+        Private ReadOnly _logConfig As LogConfig
+        Private ReadOnly _logger As Logger
+        Private ReadOnly _firebird As Database.Firebird
+
+        Public Sub New(LogConfig As LogConfig, Firebird As Database.Firebird)
+            _logConfig = LogConfig
+            _logger = LogConfig.GetLogger()
+            _firebird = Firebird
+        End Sub
+
+        Public Function SyncUsers(GroupName As String, Users As List(Of ADUser), PropertyMapping As List(Of AttributeMapping)) As List(Of ADUser) Implements ISyncUsers.SyncUsers
+            Dim oGroupId As Integer
+            Dim oSyncedUsers As New List(Of ADUser)
+
+            Try
+                _logger.Debug("Getting group Id for group {0}", GroupName)
+                oGroupId = GetGroupId(GroupName)
+
+                If oGroupId = 0 Then
+                    _logger.Warn("Group {0} does not exist in database. Exiting", GroupName)
+                    Return oSyncedUsers
+                End If
+
+                _logger.Debug("Using group Id {0}", oGroupId)
+            Catch ex As Exception
+                _logger.Error(ex)
+                Return oSyncedUsers
+            End Try
+
+            For Each oUser In Users
+                Dim oUserId As Int64
+                Dim oUserExists As Boolean = False
+
+                ' Check if user already exists
+                Try
+                    _logger.Debug("Checking if user {0} exists", oUser)
+                    oUserId = GetUserId(oUser.samAccountName)
+                    oUserExists = Not IsNothing(oUserId)
+                    _logger.Debug("User {0} exists in database: ", oUser, oUserExists)
+                Catch ex As Exception
+                    _logger.Error(ex)
+                    _logger.Warn("Could not get UserId for user. Skipping")
+                    Continue For
+                End Try
+
+                ' I user does not exist, create a new user
+                Try
+                    If Not oUserExists Then
+                        _logger.Debug("Creating new user for {0}", oUser)
+                        oUserId = CreateUser(oUser)
+                        _logger.Debug("User created with Id {0}", oUserId)
+                    End If
+                Catch ex As Exception
+                    _logger.Error(ex)
+                    _logger.Warn("Could not create user. Skipping")
+                    Continue For
+                End Try
+
+                ' Add the user to group
+                Try
+                    AddUserToGroup(oUserId, oGroupId)
+                Catch ex As Exception
+                    _logger.Error(ex)
+                    _logger.Warn("Could not add user to group. Skipping")
+                    Continue For
+                End Try
+
+                oSyncedUsers.Add(oUser)
+            Next
+
+            Return oSyncedUsers
+        End Function
+
+        Private Sub AddUserToGroup(UserId As Integer, GroupId As Integer) Implements ISyncUsers.AddUserToGroup
+            Try
+                Dim oSQL = $"SELECT FNICM_RADM_NEW_USER2GROUP({UserId}, {GroupId}, 'AD-Sync') from RDB$DATABASE"
+                Dim oRecordId = _firebird.GetScalarValue(oSQL)
+
+                If IsDBNull(oRecordId) Then
+                    _logger.Warn("UserId {0} - GroupId {1} relation already exists.", UserId, GroupId)
+                End If
+            Catch ex As Exception
+                _logger.Error(ex)
+                Throw ex
+            End Try
+        End Sub
+        Private Function GetGroupId(GroupName As String) As Integer Implements ISyncUsers.GetGroupId
+            Try
+                Dim oSQL As String = $"SELECT FNICM_GET_RECORD4SYSKEY('{GroupName}','002-NAME') from RDB$DATABASE"
+                Dim oGroupId = _firebird.GetScalarValue(oSQL)
+
+                If IsDBNull(oGroupId) OrElse oGroupId = 0 Then
+                    _logger.Debug("Group {0} not found in database", GroupName)
+                    Return Nothing
+                End If
+
+                Return oGroupId
+            Catch ex As Exception
+                _logger.Error(ex)
+                Throw ex
+            End Try
+        End Function
+        Private Function GetUserId(UserName As String) As Integer Implements ISyncUsers.GetUserId
+            Try
+                Dim oSQL As String = $"SELECT FNICM_GET_RECORD4SYSKEY('{UserName}','001-USRNAME') from RDB$DATABASE"
+                Dim oResult = _firebird.GetScalarValue(oSQL)
+
+                If IsDBNull(oResult) Then
+                    Return Nothing
+                End If
+
+                Return oResult
+            Catch ex As Exception
+                _logger.Error(ex)
+                Throw ex
+            End Try
+        End Function
+        Private Function CreateUser(User As ADUser) As Integer Implements ISyncUsers.CreateUser
+            Try
+                Dim oSQL = $"SELECT FNICM_RADM_NEW_USER('{User.GivenName}', '{User.Surname}', '{User.samAccountName}', 'AD-Sync') from RDB$DATABASE"
+                Dim oUserId As Integer = _firebird.GetScalarValue(oSQL)
+
+                Return oUserId
+            Catch ex As Exception
+                _logger.Error(ex)
+                Throw ex
+            End Try
+        End Function
+
+        Public Sub AddCustomAttributesToUser(User As ADUser, UserId As Integer) Implements ISyncUsers.AddCustomAttributesToUser
+            Throw New NotImplementedException()
+        End Sub
+    End Class
+End Namespace