The following Microsoft Visual Basic Scripting Edition (VBScript) example shows how to prevent damage to the Forefront Identity Manager Synchronization Service (FIM Synchronization Service) connector data source that can be caused by accidentally exporting too many object deletes. This example assumes that the Fabrikam AD MA management agent has an export step in the Full Export run profile. This example does not start the export profile if more than 50 objects are about to be deleted.
| Visual Basic Script |  Copy Code |
|---|---|
Option Explicit
On Error Resume Next
Const PktPrivacy = 6 ' Authentication level
Dim ErrorLevel ' Return code
Dim Service ' Service object
Dim ManagementAgent ' Management agent
Dim ExportNumDeleteLimit ' Export delete limit
Dim Status ' Status string
ErrorLevel = 1
Set Service = GetObject("winmgmts:{authenticationLevel=PktPrivacy}!root\MicrosoftIdentityIntegrationServer")
Set ManagementAgent = Service.Get("MIIS_ManagementAgent.Name='Fabrikam AD MA'")
' This example limits export deletes to less than 50 objects.
ExportNumDeleteLimit = 50
' If the number of objects deletes to be exported is less than the specified limit,
' then export the objects. Do not export more than the specified limit.
If Clng(ManagementAgent.NumExportDelete) < Clng(ExportNumDeleteLimit) Then
WScript.Echo "Exporting objects"
Status = ManagementAgent.Execute("Export")
If Status = "success" Then
ErrorLevel = 0
WScript.Echo "Export successful."
Else
WScript.Echo "Export failed with " & Status
End If
Else
WScript.Echo "Export Deletion Limit exceeded."
WScript.Echo "You can only export " & ExportNumDeleteLimit & " object deletions."
WScript.Echo "You are trying to export " & ManagementAgent.NumExportDelete & " object deletions."
End If
WScript.Quit(ErrorLevel)
Sub ErrorHandler (ErrorMessage)
WScript.Echo ErrorMessage
WScript.Quit(1)
End Sub
|
|