Выгрузка пользователей с сайта битрикс

<?
require($_SERVER["DOCUMENT_ROOT"] . "/bitrix/header.php");
$APPLICATION->SetTitle("Экспорт списка юзеров и получателей рассылок");

$expSubscribesFile = 'subscribes.csv';
$expUsersFile = 'users.csv';
$strDlmtr = ';';
$lineDlmtr = "\n";

$arUsers = array('#,Фамилия,Имя,Отчество,EMail');
$arUsersList = array();
$i = 1;
$db = CUser::GetList(($by = 'lastname'), ($order = 'asc'), array('ACTIVE' => 'Y'));
while ($u = $db->Fetch()) {
    $tmp = array($i++, $u['LAST_NAME'], $u['NAME'], $u['SECOND_NAME'], $u['EMAIL']);
    $arUsers[] = implode($strDlmtr, $tmp);
    $arUsersList[$u['ID']] = $u;
}
unset($db);

$strUsers = implode($lineDlmtr, $arUsers);
$f = file_put_contents($expUsersFile, $strUsers);
?>
<style>
    .err{
        color: darkred;
    }
</style>
<?
if ($f > 0) {
    ?>
    <h2>Файл списка активных пользователей создан</h2>
    <p>
        <a href = "<?= $expUsersFile ?>" target="_blank">Скачать файл списка активных пользователей</a>
    </p>
    <?
} else {
    ?>
    <h2 class="err">Файл списка активных пользователей не создан!</h2>
    <?
}
$arSubscrUsers = array('#,Фамилия,Имя,Отчество,email,email подписки');
if(CModule::IncludeModule('subscribe')){

$i = 1;
$db = CSubscription::GetList(array('EMAIL' => 'ASC'));
$usList = array();
while ($us = $db->Fetch()) {
    $tmp = array($i++, $arUsersList[$us['USER_ID']]['LAST_NAME'], $arUsersList[$us['USER_ID']]['NAME'], $arUsersList[$us['USER_ID']]['SECOND_NAME'], $arUsersList[$us['USER_ID']]['EMAIL'], $us['EMAIL']);
    $arSubscrUsers[] = implode($strDlmtr, $tmp);
    $usList[]=$us;
}
unset($db);

$strUsersS = implode($lineDlmtr, $arSubscrUsers);
$fs = file_put_contents($expSubscribesFile, $strUsersS);

if ($fs > 0) {
    ?>
    <h2>Файл списка подписчиков рассылок создан</h2>
    <p>
        <a href = "<?= $expSubscribesFile ?>" target="_blank">Скачать файл списка подписчиков рассылок</a>
    </p>
    <?
} else {
    ?>
    <h2 class="err">Файл списка подписчиков рассылок не создан!</h2>
    <?
}
}
?>
    
<? require($_SERVER["DOCUMENT_ROOT"] . "/bitrix/footer.php"); ?>