Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
QuarantineFile('C:\Program Files (x86)\Common Files\Adobe\OOBA\PDApp\PPAPI\FD978E61-FD96-493C-822C-C0BF99B5F051.exe','');
QuarantineFile('c:\program files (x86)\common files\freemake shared\productupdater\productupdater.exe','');
QuarantineFileF('c:\users\pc\appdata\local\microsoft\extensions', '*', true, '', 0 ,0);
QuarantineFile('C:\Users\PC\AppData\Local\Microsoft\Extensions\extsetup.exe', '');
DeleteFile('C:\Program Files (x86)\Common Files\Adobe\OOBA\PDApp\PPAPI\FD978E61-FD96-493C-822C-C0BF99B5F051.exe','32');
QuarantineFile('C:\Program Files (x86)\OpenOffice 4\program\unopkg.com', '');
DeleteFile('C:\Users\PC\AppData\Local\Microsoft\Extensions\extsetup.exe', '32');
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\extsetup" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\extsetupSB" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\extsetup" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\extsetupSB" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "AB2E6EC9F-B041-4059-BBA2-1E73151C0A2E" /F', 0, 15000, true);
DeleteFileMask('c:\users\pc\appdata\local\microsoft\extensions', '*', true);
RegKeyParamDel('HKEY_LOCAL_MACHINE','Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run','B2E6EC9F-B041-4059-BBA2-1E73151C0A2E');
RegKeyParamDel('HKEY_LOCAL_MACHINE','Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run','extsetupSB');
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
ExecuteSysClean;
ExecuteWizard('SCU', 2, 3, true);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
RebootWindows(true);
end.
Компьютер