Скрипт удаления элементов Битрикс

Рабочий скрипт удаления элементов Битрикс когда нужно удалить довольно большое количество не в ручную.
Если очень много элементов тогда нужно повесить на крон (планировщик)

Логика скрипта (скачать):
1) Задаём set_time_limit
2) Включаем вывод ошибок
3) Подключаем prolog bitrix
4) Подключаем нужный модуль iblock
5) Вытаскиваем элементы
6) Собираем ID-шники
7) Делаем перебор массива ID-шников и удаляем элементы

 set_time_limit(60000);
 // включаем вывод ошибочек
 ini_set('error_reporting', E_ALL);
 ini_set('display_errors', 1);
 ini_set('display_startup_errors', 1);
 // включаем замер исполнения скрипта
 // подключаем prolog bitrix 
 require $_SERVER["DOCUMENT_ROOT"] . '/bitrix/modules/main/include/prolog_before.php';
 // подключаем нужные модули
 CModule::IncludeModule("iblock");
 $infoblock = 3; // Инфоблок с ID ХХХ (необходимо установить ID нужного инфоблока)
 //Вытаскиваем элементы
 $arSelectElems = array (
 "ID"
 ); 
 $arFilterElems = array (
 "IBLOCK_ID" => $infoblock
 ); 
 $arSortElems = array (
 "NAME" => "ASC"
 );
 $arResult["ELEMENTS"] = array();
 $rsElementElement = CIBlockElement::GetList(array('left_margin' => 'asc'), $arFilterElems, false, false, $arSelectElems);
 while ( $ar_Element = $rsElementElement->Fetch() ) {
     $ar_Resu[] = array(  // собираем массив того, что нам нужно
         'ID' => $ar_Element['ID'], // id
     ); 
 }
//Удаляем элементы
 foreach ($ar_Resu as $section) {
    CIBlockElement::Delete($section["ID"]);
 }