Dim strSourceReporitory
  Dim strTargetRepository
  Dim objCompareTool
  Dim mgcolDifferences
  Dim mgcolTransferedObjects
  Dim mgcolTransferedObjectsTarget
  Dim processName

  processName = "Manage Call Center Training"
  Dim mgobjSource : Set mgobjSource = getroot().getselection("select [organizational process] where shortname = '"+ processName +"'").item(1)


  strSourceReporitory = mgobjSource.GetRoot.GetCollection("Repository").Item("~w5dzLKWgQvmv[EA BPM]").MegaField
  strTargetRepository = mgobjSource.GetRoot.GetCollection("Repository").Item("~Qz4(LKWgQvmv[Live_v2]").MegaField

  Set objCompareTool = mgobjSource.GetRoot.OpenCompareToolEx("DbSource=" & strSourceReporitory, "DbTarget=" & strTargetRepository, "")

  objCompareTool.SetGenerateOutputOption "TransferredObjects" , False
  objCompareTool.SetGenerateOutputOption "Propagate" , False
  objCompareTool.Perimeter =  "~s3TUXcdgZrHQ[RTA - Automation - Compare]"

  Set mgcolTransferedObjects = objCompareTool.GetRootSource.getSelection("")
  Set mgcolTransferedObjectsTarget = objCompareTool.GetRootTarget.getSelection("")


  mgcolTransferedObjects.Add(mgobjSource)


  ' Check if Process available in the target reposiotory
  If objCompareTool.GetRootTarget.GetSelection("Select [Organizational Process] Where [_HexaIdAbs] = '" & mgobjSource.GetProp("_HexaIdAbs") &"'").Count > 0 Then
    Dim mObjTarget
    Set mObjTarget = objCompareTool.GetRootTarget.GetSelection("Select [Organizational Process] Where [_HexaIdAbs] = '" & mgobjSource.GetProp("_HexaIdAbs") &"'").item(1)
    mgcolTransferedObjectsTarget.Add(mObjTarget)
   objCompareTool.CompareObjects  mgcolTransferedObjects,mgcolTransferedObjectsTarget
  
  Else
    ' a new process
    print "A New Process"
	
  		
  End If
  
  Set mgcolDifferences = objCompareTool.GetDiffResultCollection()
  dim mgDiff, strDiff, strTarget, strObject1, strObject2

  For Each mgDiff In mgcolDifferences
    strDiff = mgDiff.GetProp("~ZApdg(vjEX67[Difference]")
    
    strTarget = mgDiff.GetProp("~CVJie9xjEzg5[Cible]")
    
    strObject1 = mgDiff.GetProp("~ASJi1AxjEHj5[Objet 1]")
    
    strObject2 = mgDiff.GetProp("~BTJiGAxjELm5[Objet 2]")

    print strDiff & ">" & mgDiff.getprop("~3SqlLqFEEPoF[Kind]") & ">" & strTarget & ">" & strObject1 & ">" & strObject2 & ">" & mgDiff.getprop("~ITqlPgcDEb8F[ObjectSourceIdabs]") & ">" & mgDiff.getprop("~sTqlmgcDEP9F[ObjectTargetIdabs]")
    
  Next
   objCompareTool.Close