Скачать: CL | DM;

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

← →
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]

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


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

---

← →
Rouse_ ©   (2007-01-17 09:45) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c