Imports Microsoft.MetadirectoryServices Public Class MAExtensionObject Implements IMASynchronization Public Sub Initialize() Implements IMASynchronization.Initialize ' TODO: Add initialization code here End Sub Public Sub Terminate() Implements IMASynchronization.Terminate ' TODO: Add termination code here End Sub Public Function ShouldProjectToMV(ByVal csentry As CSEntry, ByRef MVObjectType As String) As Boolean Implements IMASynchronization.ShouldProjectToMV ' TODO: Remove this throw statement if you implement this method Throw New EntryPointNotImplementedException() End Function Public Function FilterForDisconnection(ByVal csentry As CSEntry) As Boolean Implements IMASynchronization.FilterForDisconnection ' TODO: Add connector filter code here Throw New EntryPointNotImplementedException() End Function Public Sub MapAttributesForJoin(ByVal FlowRuleName As String, ByVal csentry As CSEntry, ByRef values As ValueCollection) Implements IMASynchronization.MapAttributesForJoin ' TODO: Add join mapping code here Throw New EntryPointNotImplementedException() End Sub Public Function ResolveJoinSearch(ByVal joinCriteriaName As String, ByVal csentry As CSEntry, ByVal rgmventry() As MVEntry, ByRef imventry As Integer, ByRef MVObjectType As String) As Boolean Implements IMASynchronization.ResolveJoinSearch ' TODO: Add join resolution code here Throw New EntryPointNotImplementedException() End Function Public Sub MapAttributesForImport(ByVal FlowRuleName As String, ByVal csentry As CSEntry, ByVal mventry As MVEntry) Implements IMASynchronization.MapAttributesForImport ' TODO: write your import attribute flow code Select Case FlowRuleName Case "PersonalTitle" Dim PersonalTitle As String = "Personnal title: " & csentry("Title").Value.ToString.ToLower mventry("PersonalTitle").Value = PersonalTitle End Select End Sub Public Sub MapAttributesForExport(ByVal FlowRuleName As String, ByVal mventry As MVEntry, ByVal csentry As CSEntry) Implements IMASynchronization.MapAttributesForExport ' TODO: Add export attribute flow code here Throw New EntryPointNotImplementedException() End Sub Public Function Deprovision(ByVal csentry As CSEntry) As DeprovisionAction Implements IMASynchronization.Deprovision ' TODO: Remove this throw statement if you implement this method Throw New EntryPointNotImplementedException() End Function End Class