function GetComputerName

function GetComputerName

Previous pageReturn to chapter overviewNext page

function GetComputerName : string;

 

Возвращает сетевое имя компьютера. Сетевое имя всегда возвращается в верхнем регистре для упрощения сравнения и анализа.

 

Примеры применения:

 

1.

 

begin

AddToLog('Протокол с компьютера '+GetComputerName);

end.

В данном примере в протокол вносится строка, содержащая текущее имя компьютера

 

2.

 

begin

if GetComputerName = 'PUPKIN' then begin

SetupAVZ('DelVir=Y');       // Включение лечения

SetupAVZ('UseQuarantine=Y'); // Использование автокарантина

end;

end.

 

В данном примере для компьютера с именем PUPKIN проводятся некоторые индивидуальные операции (в данном случае включается лечение и использование карантина)

 

3.

 

begin

if pos('ASU_', GetComputerName) = 1 then

ExitAVZ;

end.

 

В данном примере для компьютеров, имя которых начинается с ASU_ производится немедленный выход из AVZ за счет вызова функции ExitAVZ