AVZ 5. Руководство пользователя
×

16.12.2. function GetComputerName

function GetComputerName : string;
 
Возвращает сетевое имя компьютера. Сетевое имя всегда возвращается в верхнем регистре для упрощения сравнения и анализа.
 
Примеры применения:
 
1.В данном примере в протокол вносится строка, содержащая текущее имя компьютера
 
begin
  AddToLog('Протокол с компьютера '+GetComputerName);
end.
В примере использовались: AddToLog
 
 
2.В данном примере для компьютера с именем PUPKIN проводятся некоторые индивидуальные операции (в данном случае включается лечение и использование карантина)
 
begin
 if GetComputerName = 'PUPKIN' then begin
  SetupAVZ('DelVir=Y');       // Включение лечения
  SetupAVZ('UseQuarantine=Y'); // Использование автокарантина
 end;
end.
В примере использовались: SetupAVZ
 
 
3. В данном примере для компьютеров, имя которых начинается с ASU_ производится немедленный выход из AVZ за счет вызова функции ExitAVZ
 
begin
  if pos('ASU_', GetComputerName) = 1 then
    ExitAVZ;
end.
В примере использовались: ExitAVZ