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