Не запускается брандмауэр и нет интернета

[v_taras]

Доброе время суток.
Помогите плз. Стоит Виста. Не могу запустить брандмауэр и нет интернета

[v_taras]

Доктора, прошу Вас помогите или подскажите, что можно сделать.
Зарание спасибо

Добавлено через 6 часов 44 минуты

подскажите хоть что-то.

[thyrex]

Выполните скрипт

procedure FixServiceStart(ServiceName:string);
var j:integer; NumStr:string;
begin
for j:=0 to 999 do
 begin
    if j=0 then
        NumStr:='CurrentControlSet' else 
        if j<10 then
            NumStr:='ControlSet00'+IntToStr(j) else
            if j<100 then
                NumStr:='ControlSet0'+IntToStr(j) else
                NumStr:='ControlSet'+IntToStr(j);
 if RegKeyExistsEx('HKLM', 'SYSTEM\'+NumStr+'\Services\' + ServiceName) then
  begin
  RegKeyResetSecurity('HKLM', 'SYSTEM\'+NumStr+'\Services\' + ServiceName);
  RegKeyStrParamWrite('HKLM', 'SYSTEM\'+NumStr+'\Services\' + ServiceName, 'ImagePath', '%SystemRoot%\System32\svchost.exe -k netsvcs');
  AddToLog('Значение параметра ImagePath в разделе реестра HKLM\SYSTEM\'+NumStr+'\Services\' + ServiceName + ' исправлено на оригинальное.'); 
   if (RegKeyIntParamRead('HKLM', 'SYSTEM\'+NumStr+'\Services\' + ServiceName, 'Start') = 0) then
    begin
    RegKeyIntParamWrite('HKLM', 'SYSTEM\'+NumStr+'\Services\' + ServiceName,'Start', 2);
    AddToLog('Тип запуска службы ' + ServiceName + ' переведен в режим Авто.');
   end;
  end;
 end;
end;

begin
 FixServiceStart('SharedAccess');
end.

Брандмауэр запустился?

[v_taras]

К сожелению не запустился. Все осталось на своем уровне

[v_taras]

проблема так и не решилась