Actually i have a code written from one of my friend but i dont understand it completely either u can give me a detailed description of the code given or please write a code so that i can understand in simple way
all i need is following to happen atleast the first two
1. when expiry date +1 day equals todays date user moves to inactive container
2.when expiry date set to > todays date noves to staff container
3. optional is according to email format the user should move to appropriate group like
like id= o****** moves to office group
c****** moves to cleaners group
p****** moves to personal group
send me code with basic explanations Thanks for replying
Dim ManagementAgent As ConnectedMA
Dim Connectors As Integer
Dim DN As ReferenceValue
Dim DN1 As ReferenceValue
Dim Container As String
Dim Container1 As String
Dim RDN As String
Dim csentry As CSEntry
Dim cnForObject As String
Dim cnForDifferentContainer As String
ManagementAgent = mventry.ConnectedMAs("AD_MA")
Connectors = ManagementAgent.Connectors.Count
Container1 = "ou=inactive,dc=admin,dc=yahoo,dc=co,dc=in"
Container = "ou=localuser Users,dc=admin,dc=yahoo,dc=co,dc=in"
cnForObject = mventry("CnAD").Value
RDN = "CN=" + cnForObject
cnForDifferentContainer = mventry("employeeID").Value
Dim ContainerNew As String = check_DomainNames(cnForDifferentContainer)
If (String.IsNullOrEmpty(ContainerNew)) Then
DN = ManagementAgent.EscapeDNComponent(RDN).Concat(Container)
Else
DN = ManagementAgent.EscapeDNComponent(RDN).Concat(ContainerNew)
End If
DN = ManagementAgent.EscapeDNComponent(RDN).Concat(Container)
DN1 = ManagementAgent.EscapeDNComponent(RDN).Concat(Container1)
If 0 = Connectors Then
If (mventry("expiryDate").IsPresent) Then
If (Convert.ToDateTime(mventry("expiryDate").Value) > DateTime.Now) Then
csentry = ManagementAgent.Connectors.StartNewConnector("user")
csentry.DN = DN
csentry("unicodePwd").Values.Add("{crypt}Not__Assigned")
csentry("userAccountControl").Values.Add(512)
csentry.CommitNewConnector()
End If
End If
ElseIf 1 = Connectors Then
csentry = ManagementAgent.Connectors.ByIndex(0)
If (mventry("expiryDate").IsPresent) Then
If (Convert.ToDateTime(mventry("expiryDate").Value) < DateTime.Now) Then
csentry.DN = DN1
ElseIf (Convert.ToDateTime(mventry("expiryDate").Value) > DateTime.Now) Then
csentry.DN = DN
End If
End If
Else
Dim ExceptionMessage As String
ExceptionMessage = "Multiple Connectors on Management Agent"
Throw New UnexpectedDataException(ExceptionMessage)
End If
End Sub
Public Function ShouldDeleteFromMV(ByVal csentry As CSEntry, ByVal mventry As MVEntry) As Boolean Implements IMVSynchronization.ShouldDeleteFromMV
' TODO: Add MV deletion code here
Throw New EntryPointNotImplementedException()
End Function
Private Function check_DomainNames(ByVal s As String) As String
Dim myMMSConnectionString As String = "Initial Catalog=MicrosoftIdentityIntegrationServer;Data Source=localhost;Integrated Security=SSPI;connect timeout=5000;"
Dim myMMSConnection As SqlConnection = Nothing
Dim myMMSReader As SqlDataReader = Nothing
myMMSConnection = New SqlConnection(myMMSConnectionString)
myMMSConnection.Open()
Dim mySelectQuery As String = "select dn from containerDetails where sAMAccountName like '" & s & "%'"
Dim myCommand As New SqlCommand(mySelectQuery, myMMSConnection)
Dim Container As String = ""
Dim CN As String = ""
Dim sqlColumn As Object() = New Object(2) {}
myMMSReader = myCommand.ExecuteReader()
myCommand.CommandTimeout = 0
While myMMSReader.Read()
myMMSReader.GetValues(sqlColumn)
If Not ((sqlColumn(0).Equals(""))) Then
Container = sqlColumn(0).ToString()
End If
End While
Return Container
myMMSConnection.Dispose()
myMMSConnection.Close()
End Function
End Class
