Код:
begin
QuarantineFileF('c:\users\администратор\appdata\local\filesystemoptions', '*.exe', true, '', 0 , 0);
QuarantineFileF('c:\users\администратор\appdata\local\testmenu', '*.exe', true, '', 0 , 0);
QuarantineFileF('c:\users\администратор\appdata\local\immediatehelp', '*.exe', true, '', 0 , 0);
QuarantineFileF('c:\users\администратор\appdata\local\lastnews', '*.exe', true, '', 0 , 0);
QuarantineFileF('c:\users\администратор\appdata\local\validatelife', '*.exe', true, '', 0 , 0);
QuarantineFile('C:\Users\Администратор\AppData\Local\FilterOptions\regCheck.vbs', '');
QuarantineFile('C:\Windows\system32\GroupPolicy\Machine\Registry.pol', '');
QuarantineFile('C:\Users\Администратор\AppData\Local\FileSystemOptions\regCheck.vbs', '');
QuarantineFile('C:\Users\Администратор\AppData\Local\TestMenu\regCheck.vbs', '');
QuarantineFile('C:\Users\Администратор\AppData\Local\ImmediateHelp\regCheck.vbs', '');
QuarantineFile('C:\Users\Администратор\AppData\Local\LastNews\regCheck.vbs', '');
QuarantineFile('C:\Users\Администратор\AppData\Local\ValidateLife\regCheck.vbs', '');
QuarantineFile('C:\Users\Администратор\AppData\Local\DateOption\regCheck.vbs', '');
QuarantineFile('C:\Users\Администратор\AppData\Local\rightchose\regCheck.vbs', '');
DeleteFile('C:\Users\Администратор\AppData\Local\FilterOptions\regCheck.vbs', '32');
DeleteFile('C:\ProgramData\hdtask\hdtask.exe', '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');
DeleteFileMask('c:\programdata\hdtask', '*', true);
DeleteFileMask('c:\users\администратор\appdata\local\filesystemoptions', '*', 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);
DeleteFileMask('c:\users\администратор\appdata\local\dateoption', '*', true);
DeleteFileMask('c:\users\администратор\appdata\local\rightchose', '*', true);
DeleteDirectory('c:\programdata\hdtask');
DeleteDirectory('c:\users\администратор\appdata\local\filesystemoptions');
DeleteDirectory('c:\users\администратор\appdata\local\testmenu');
DeleteDirectory('c:\users\администратор\appdata\local\immediatehelp');
DeleteDirectory('c:\users\администратор\appdata\local\lastnews');
DeleteDirectory('c:\users\администратор\appdata\local\validatelife');
DeleteDirectory('c:\users\администратор\appdata\local\dateoption');
DeleteDirectory('c:\users\администратор\appdata\local\rightchose');
RegKeyParamDel('HKEY_LOCAL_MACHINE', 'Software\Microsoft\Windows\CurrentVersion\Run', 'FilterOptions');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'C');
RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'hdtask');
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;
ExecuteRepair(23);
ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.
Компьютер перезагрузится.