Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
QuarantineFile('C:\Program Files (x86)\Microsoft.NET\Primary Interop Assemblies\Microsoft.exe', '');
QuarantineFile('C:\Program Files (x86)\windows nt\tabletextservice\en-US\TableTextService.exe', '');
QuarantineFile('C:\Users\Тимур\AppData\Roaming\.minecraft\config\XaeroWorldMap\uteamcore-client.exe', '');
QuarantineFileF('c:\program files (x86)\microsoft.net\primary interop assemblies', '*.exe, *.bat, *.vbs, *.ps1, *.js*, *.tmp*', false, '', 0 , 0);
QuarantineFileF('c:\program files (x86)\windows nt', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.ps1, *.js*, *.tmp*', false, '', 0 , 0);
DeleteFile('C:\Program Files (x86)\Microsoft.NET\Primary Interop Assemblies\Microsoft.exe', '');
DeleteFile('C:\Program Files (x86)\windows nt\tabletextservice\en-US\TableTextService.exe', '');
DeleteFile('C:\Users\Тимур\AppData\Roaming\.minecraft\config\XaeroWorldMap\uteamcore-client.exe', '');
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\CertificateServicesClient\UserTaskUser" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\CertificateServicesClient\UserTaskUser86" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Clip\License Validation User86" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Customer Experience Improvement Program\UsbCeip Discovery" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Customer Experience Improvement Program\UsbCeip Discovery04" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Device Setup\Metadata Refresh Extender" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Device Setup\Metadata Refresh Extender47" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\Device Setup\Metadata Refresh Extender86" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\File Classification Infrastructure\Property Definition SyncLibrary" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Microsoft\Windows\File Classification Infrastructure\Property Definition SyncLibrary86" /F', 0, 15000, true);
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.