Блокирует соц сети и поисковики

begin
ShowMessage('Внимание! Перед выполнением скрипта AVZ автоматически закроет все сетевые подключения.' + #13#10 + 'После перезагрузки компьютера подключения к сети будут восстановлены в автоматическом режиме.');
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
if not IsWOW64
 then
  begin
   SearchRootkit(true, true);
   SetAVZGuardStatus(True);
  end;
QuarantineFile('C:\DOCUME~1\User\APPLIC~1\DSite\UPDATE~1\UPDATE~1.EXE','');
 QuarantineFile('C:\DOCUME~1\User\APPLIC~1\DIGITA~1\UPDATE~1\UPDATE~1.EXE','');
 QuarantineFile('c:\drivers\hstart.exe','');
 QuarantineFile('C:\Documents and Settings\User\Application Data\SearchIndexer\desktopsearchservice.exe','');
 QuarantineFile('C:\DOCUME~1\ALLUSE~1\APPLIC~1\Mozilla\csfwxuh.dll','');
 DeleteFile('C:\DOCUME~1\ALLUSE~1\APPLIC~1\Mozilla\csfwxuh.dll','32');
 DeleteFile('C:\Documents and Settings\User\Application Data\SearchIndexer\desktopsearchservice.exe','32');
 DeleteFile('c:\drivers\hstart.exe','32');
 DeleteFile('C:\DOCUME~1\User\APPLIC~1\DIGITA~1\UPDATE~1\UPDATE~1.EXE','32');
 DeleteFile('C:\DOCUME~1\User\APPLIC~1\DSite\UPDATE~1\UPDATE~1.EXE','32');
 DeleteFile('C:\WINDOWS\Tasks\At2.job','32');
 DeleteFile('C:\WINDOWS\Tasks\At1.job','32');
 RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','cohost');
 RegKeyParamDel('HKEY_CURRENT_USER','Software\Microsoft\Windows\CurrentVersion\Run','SearchIndexer');
 DeleteFileMask('C:\Documents and Settings\User\Application Data\SearchIndexer', '*', true);
DeleteDirectory('C:\Documents and Settings\User\Application Data\SearchIndexer');
DeleteFileMask('c:\drivers', '*', true);
DeleteDirectory('c:\drivers');
BC_ImportAll;
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end.

begin
CreateQurantineArchive('c:\quarantine.zip');
end.