'; Восстановить XP после вируса '; Скрипт восстанавливает: '; '; * Реестр: '; - запуск командной строки (cmd.exe) '; - редактирование реестра (regedit.exe) '; - запуск диспетчер задач (taskmgr.exe) '; - запуск оболочки (explorer.exe) '; - открытие файлов (.exe и т.д.) '; - свойства папки (показать скрытые файлы и т.д.) '; * Файловая система: '; - открытие дисков (удаляет autorun.inf в корне всех дисков) On Error Resume Next Dim objShell, objFSO, Sel, Drv Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") '; Удалить autorun.inf на всех дисках For each Drv in objFSO.Drives If objFSO.FileExists(Drv & "\autorun.inf") Then Sel = MsgBox("Удалить autorun.inf (автозапуск) на диске " & Drv & "?", 4 + 32, "Восстановление XP") If Sel = 6 Then objFSO.deletefile Drv & "\autorun.inf", True End If End If Next '; CMD objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", 0, "REG_DWORD" '; RegEdit objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 0, "REG_DWORD" '; TaskMgr objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", 0, "REG_DWORD" objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer\NoClose", 0, "REG_DWORD" '; Восстановить запуск explorer.exe objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "Explorer.exe", "REG_SZ" objShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\explorer.exe\" '; Восстановить параметры открытия файлов Sel = MsgBox("Восстановить параметры открытия файлов?", 4 + 32, "Восстановление XP") If Sel = 6 Then '; *.exe objShell.RegWrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.com objShell.RegWrite "HKEY_CLASSES_ROOT\comfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.bat objShell.RegWrite "HKEY_CLASSES_ROOT\batfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.cmd objShell.RegWrite "HKEY_CLASSES_ROOT\cmdfile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.pif objShell.RegWrite "HKEY_CLASSES_ROOT\piffile\shell\open\command\", chr(34) & "%1" & chr(34) & " %*", "REG_SZ" '; *.reg objShell.RegWrite "HKEY_CLASSES_ROOT\regfile\shell\open\command\", "regedit.exe " & chr(34) & "%1" & chr(34), "REG_SZ" '; *.txt objShell.RegWrite "HKEY_CLASSES_ROOT\txtfile\shell\open\command\", "notepad.exe %1", "REG_SZ" '; iexplore.exe objShell.RegWrite "HKEY_CLASSES_ROOT\Applications\iexplore.exe\shell\open\command\", "iexplore.exe %1", "REG_SZ" End If '; Восстановить свойства папки Sel = MsgBox("Восстановить свойства папки?", 4 + 32, "Восстановление XP") If Sel = 6 Then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", 0, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\Type", "group", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\Type", "radio", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\CheckedValue", 2, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN\DefaultValue", 2, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\Type", "radio", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", 1, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\DefaultValue", 2, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\Type", "checkbox", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\CheckedValue", 0, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\UncheckedValue", 1, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\DefaultValue", 0, "REG_DWORD" objShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden\Policy\DontShowSuperHidden\" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\Type", "checkbox", "REG_SZ" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\CheckedValue", 1, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\UncheckedValue", 0, "REG_DWORD" objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExt\DefaultValue", 1, "REG_DWORD" End If '; Показать скрытые и системные файлы Sel = MsgBox("Показать скрытые и системные файлы?", 4 + 32, "Восстановление XP") If Sel = 6 Then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\Hidden", 1, "REG_DWORD" objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\ShowSuperHidden", 1, "REG_DWORD" Else objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\Hidden", 0, "REG_DWORD" objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\ShowSuperHidden", 0, "REG_DWORD" End If '; Показать расширение файлов Sel = MsgBox("Показать расширение файлов?", 4 + 32, "Восстановление XP") If Sel = 6 Then objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\HideFileExt", 0, "REG_DWORD" Else objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\explorer\advanced\HideFileExt", 1, "REG_DWORD" End If MsgBox "Для внесения всех изменений нужна перезагрузка!", 64,"Восстановление XP" '; Перезагрузка Sel = MsgBox("Перезагрузить компьютер?", 4 + 32, "Восстановление XP") If Sel = 6 Then Dim OpSysSet, obj Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}//./root/cimv2").ExecQuery ("SELECT * FROM Win32_OperatingSystem WHERE Primary=true") For Each obj In OpSysSet '; Flags Action '; 0 Logoff '; 1 Shutdown '; 2 Reboot '; 4 Force '; 8 Power Off '; 16 Force If Hung obj.Win32Shutdown(6) '; Reboot + Force '; obj.Win32Shutdown(16) '; Logoff + Force Next End If set objShell = nothing set objFSO = nothing set OpSysSet = nothing set obj = nothing set Sel = nothing set Drv = nothing Wscript.quit