| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Насколько эти ключи реестра актуальны при сетевой защите? [D6, D7, Win2k, WinXP]

Black_Live ©   (2007-01-16 17:18:00) 

{----------- Запретить анонимным пользователям просматривать ресурсы ----------}
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;

---

Rouse_   (2007-01-17 09:45:00) [1]

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

---

Сергей М.   (2007-01-17 08:16:00) [2]

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


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

---

Наверх