Код:
begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
ClearQuarantineEx(true);
QuarantineFile('C:\Users\LENOVO\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Punto Switcher.lnk ', '');
QuarantineFile('C:\Users\Екатерина\AppData\Local\FilterOptions\regCheck.vbs', '');
QuarantineFileF('C:\Users\Екатерина\AppData\Local\FilterOptions\', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js*, *.tmp*', true, '', 0, 0);
QuarantineFile('C:\Users\Екатерина\AppData\Local\FileSystemOptions\regCheck.vbs', '');
QuarantineFile('C:\Users\Екатерина\AppData\Local\TestMenu\regCheck.vbs', '');
QuarantineFileF('C:\Users\Екатерина\AppData\Local\TestMenu\', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js*, *.tmp*', true, '', 0, 0);
QuarantineFile('C:\Users\Екатерина\AppData\Local\ImmediateHelp\regCheck.vbs', '');
QuarantineFile('C:\Users\Екатерина\AppData\Local\LastNews\regCheck.vbs', '');
QuarantineFileF('C:\Users\Екатерина\AppData\Local\ImmediateHelp', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js*, *.tmp*', true, '', 0, 0);
QuarantineFile('C:\Users\Екатерина\AppData\Local\ValidateLife\regCheck.vbs', '');
QuarantineFile('C:\Users\Екатерина\AppData\Local\DateOption\regCheck.vbs', '');
QuarantineFile('C:\Users\Екатерина\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\regCheck.lnk', '');
QuarantineFile('C:\Users\Екатерина\AppData\Local\rightchose\regCheck.vbs', '');
QuarantineFile('C:\WINDOWS\SYSTEM32\DlGDIPrint.dll', '');
QuarantineFileF('C:\Users\Екатерина\AppData\Local\LastNews\', '*.exe, *.dll, *.sys, *.bat, *.vbs, *.js*, *.tmp*', true, '', 0, 0);
QuarantineFileF('C:\Users\Екатерина\AppData\Local\ValidateLife\', '*', true, '', 0, 0);
DeleteFile('C:\Users\Екатерина\AppData\Local\rightchose\regCheck.vbs', '');
DeleteFile('C:\Users\Екатерина\AppData\Local\FilterOptions\regCheck.vbs', '32');
DeleteFile('C:\Users\Екатерина\AppData\Local\FileSystemOptions\regCheck.vbs', '32');
DeleteFile('C:\Users\Екатерина\AppData\Local\TestMenu\regCheck.vbs', '32');
DeleteFile('C:\Users\Екатерина\AppData\Local\ImmediateHelp\regCheck.vbs', '32');
DeleteFile('C:\Users\Екатерина\AppData\Local\LastNews\regCheck.vbs', '32');
DeleteFile('C:\Users\Екатерина\AppData\Local\ValidateLife\regCheck.vbs', '32');
DeleteFile('C:\Users\Екатерина\AppData\Local\DateOption\regCheck.vbs', '32');
DeleteFile('C:\Users\Екатерина\AppData\Local\rightchose\regCheck.vbs', '32');
ExecuteFile('schtasks.exe', '/delete /TN "PDVDServ" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "DolbySelectorTask" /F', 0, 15000, true);
ExecuteFile('schtasks.exe', '/delete /TN "Lenovo Customer Feedback Program" /F', 0, 15000, true);
DeleteFileMask('C:\Users\Екатерина\AppData\Local\FilterOptions\', '*', true);
DeleteFileMask('C:\Users\Екатерина\AppData\Local\TestMenu\', '*', true);
DeleteFileMask('C:\Users\Екатерина\AppData\Local\ImmediateHelp', '*', true);
DeleteFileMask('C:\Users\Екатерина\AppData\Local\LastNews\', '*', true);
DeleteFileMask('C:\Users\Екатерина\AppData\Local\ValidateLife\', '*', true);
DeleteDirectory('C:\Users\Екатерина\AppData\Local\FilterOptions\');
DeleteDirectory('C:\Users\Екатерина\AppData\Local\TestMenu\');
DeleteDirectory('C:\Users\Екатерина\AppData\Local\ImmediateHelp');
DeleteDirectory('C:\Users\Екатерина\AppData\Local\LastNews\');
DeleteDirectory('C:\Users\Екатерина\AppData\Local\ValidateLife\');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'FilterOptions');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'FileSystemOptions');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'TestMenu');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'ImmediateHelp');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'LastNews');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run', 'ValidateLife');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'DateOption');
CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
RebootWindows(true);
end.