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

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

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

[size="1"][color="#666686"][B][I]Добавлено через 6 часов 44 минуты[/I][/B][/color][/size]

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

Выполните скрипт
[CODE]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.[/CODE]Брандмауэр запустился?

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

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