How to: Prevent Connected Data Source Damage

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.

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

See Also

Concepts

Preventing Damage to the Metaverse and Connected Data Source
How to: Prevent Metaverse Damage
How to: Enable Security in Scripts
Creating Scripts