[Алексей Пикуров]

Версия сервера 7.0 и старше.

Используем событие OnRegistered:

Скрипт для автоматического переименования пользователей WEB-поддержки с сайта
onregisredscript.png (52.06 КБ) Просмотров: 5416

Скрипт срабатывает на событие новой регистрации пользователя. Он проверяет, что новый пользователь имеет стандартную группу прав "WEB guests". Если да — переименовывает его, добавляя к нику префикс "(Веб клиент)" из текстовой константы.

Текст скрипта:

Код: Выделить всё

// ---------------------------------------
// Script created by Alexey Pikurov
// 01.06.2018 15:33:51
// ---------------------------------------
const
  PREFIX = '(Веб клиент)';
  
procedure OnRegistered(iCID, iUIN: integer; var iRole: integer; var bBlocked: boolean);
var
  sGroupName, sNickName: string;
  x: integer;
begin
  sGroupName := mGetRoleNameByID(iRole);
  
    if sGroupName = 'WEB guests' then begin
      sNickName := mGetUserAttribute(iUIN, 'InternalNickName');
      
        if pos(PREFIX, sNickName) = 0 then mSetUserAttribute(iUIN, 'InternalNickName', PREFIX + ' ' + sNickName);
    end;
end;

begin

end.

Team lead
Чат со мной