Насколько эти ключи реестра актуальны при сетевой защите?

← →
Black_Live (2007-01-16 17:18) [0]

{----------- Запретить анонимным пользователям просматривать ресурсы ----------}
procedure TForm1.CheckBox6Click(Sender: TObject);
var Reg: Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Case CheckBox6.State of
cbUnchecked : begin
try
if Reg.OpenKey("\SYSTEM\CurrentControlSet\Control\Lsa",false) then
Reg.WriteInteger("RestrictAnonymous",0);
Reg.CloseKey;
finally Reg.free; end;
end;
cbChecked : begin
try
if Reg.OpenKey("\SYSTEM\CurrentControlSet\Control\Lsa",false) then
Reg.WriteInteger("RestrictAnonymous",1);
Reg.CloseKey;
finally Reg.free; end;
end;
end;
end;
{----------- Запретить анонимным пользователям просматривать базу CAM ---------}
procedure TForm1.CheckBox7Click(Sender: TObject);
var Reg: Tregistry;
begin
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Case CheckBox7.State of
cbUnchecked : begin
try
if Reg.OpenKey("\SYSTEM\CurrentControlSet\Control\Lsa",false) then
Reg.WriteInteger("RestrictAnonymousSam",0);
Reg.CloseKey;
finally Reg.free; end;
end;
cbChecked : begin
try
if Reg.OpenKey("\SYSTEM\CurrentControlSet\Control\Lsa",false) then
Reg.WriteInteger("RestrictAnonymousSam",1);
Reg.CloseKey;
finally Reg.free; end;
end;
end;
end;

← →
Сергей М. © (2007-01-17 08:16) [1]

> при сетевой защите

Защите от чего ?

Что значит актуальны? Они либо есть, либо их нет...

Насколько эти ключи реестра актуальны при сетевой защите? Найти похожие ветки