Process To Email The Manager Of A Service Account When Their End Date Is Approaching
| Case "functionalID-owner-expiring-ADMA-Import" | |
| If csentry.DN.ToString.ToLower.Contains("service") Or csentry.DN.ToString.ToLower.Contains("somethingelse") Then | |
| If mventry("serialNumber").IsPresent Then | |
| Dim AdminEntry() As MVEntry = Utils.FindMVEntries("mail", mventry("serialNumber").Value) | |
| If AdminEntry.Length <> 0 Then | |
| 'We got an entry, so work with it... If the employeeEndDate of the parent account is within 30 days, set the flag - used in the portal to email the manager of the account. | |
| If AdminEntry(0).Item("employeeEndDate").IsPresent Then | |
| Dim EndDate As Date = DateTime.ParseExact(AdminEntry(0).Item("employeeEndDate").Value.ToString, "yyyy-MM-ddTHH:mm:ss.000", provider).Date | |
| Dim nowTime As Date = Date.Now.Date.AddDays(30) | |
| If EndDate <= nowTime Then | |
| 'the parent account will be disabled within 30 days, so set the expiry flag in the MV to true: | |
| mventry("functionalID-owner-expiring").BooleanValue = True | |
| ElseIf EndDate > nowTime Then | |
| 'the parent account is still active so set the flag to false: | |
| mventry("functionalID-owner-expiring").BooleanValue = False | |
| End If | |
| End If | |
| ElseIf AdminEntry.Length = 0 Then | |
| If Not generateArrayFromFile("C:\FIMControl\IgnoreFunctionalIDOwner.txt").Contains(mventry("serialNumber").Value.ToLower) Then | |
| Throw New FailedSearchException("Functional ID Owner NOT Found!" & mventry("accountName").Value.ToLower) | |
| End If | |
| End If | |
| End If |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment