FIX: You receive an "Error: Subreport could not be shown" error message in the User Activity or Site Activity report in a Forefront Threat Management Gateway 2010 environment

var guidGenerator = new ActiveXObject("Scriptlet.TypeLib");
var fpcRoot = new ActiveXObject("FPC.Root");
try
{
  WScript.Echo("Enumerating arrays:");
  var arraysCollection = new Enumerator(fpcRoot.Arrays);
  for (; !arraysCollection.atEnd(); arraysCollection.moveNext())
  {
      try
      {
          var array = arraysCollection.item();
          var found = false;
          WScript.Echo("    " + array.Name);
          var rdlDefsCollection = new Enumerator(array.Reports.RdlReportDefinitions);
          for(; !rdlDefsCollection.atEnd(); rdlDefsCollection.moveNext())
          {
              var rdlDef = rdlDefsCollection.item();
              if((rdlDef.Name != "Ips_Metadata") && (rdlDef.Name != "UserActivity_Sites") && (rdlDef.Name != "Urlf_Metadata"))
              {
                  continue;
              }
              
              if (rdlDef.DataGenerationStatement.search(/--EXEC sp_configure \'Ole Automation Procedures\', 0/) != -1)
              {
                  WScript.Echo("---- DataGenerationStatement for " + rdlDef.Name +" already updated");
                  continue;
              }
              
              found = true;
              WScript.Echo("Found RDL definition " + rdlDef.Name);
              WScript.Echo("---- Old version start");
              WScript.Echo(rdlDef.DataGenerationStatement);
              WScript.Echo("---- Old version end");
              rdlDef.DataGenerationStatement = rdlDef.DataGenerationStatement.replace(/EXEC sp_configure \'Ole Automation Procedures\', 0/g, "--EXEC sp_configure \'Ole Automation Procedures\', 0");
              WScript.Echo("---- New version start");
              WScript.Echo(rdlDef.DataGenerationStatement);
              WScript.Echo("---- New version end");
          }
          if (found)
          {
              WScript.Echo("Updating configuration ID...");
              WScript.Echo("Old configuration ID:" + array.Reports.ReportingServicesProperties.ReportingServicesConfigurationId);
              array.Reports.ReportingServicesProperties.ReportingServicesConfigurationId = guidGenerator.Guid;
              WScript.Echo("New configuration ID:" + array.Reports.ReportingServicesProperties.ReportingServicesConfigurationId);
              
              WScript.Echo("Saving the current configuration...");
              array.Save();
              WScript.Echo("Waiting for configuration reload...");
              array.WaitForReload();
          }
      }
      catch (err)
      {
        WScript.Echo("An error occurred. Error Description: " + err.description);
        WScript.Echo("Try running the script as an administrator");
      }
  }
}
catch (err)
{
  WScript.Echo("An error occurred. Error Description: " + err.description);
  WScript.Echo("Try running the script as an administrator");
}