Скрипт автоматического создания точки восстановления системы при старте Windows 7

[Артём]

Значение средства Восстановление системы (SR, или System Restore) в операционных системах Windows трудно переоценить. На эту тему написано множество статей, где подробно описаны принцип и способы работы с ним.

Многие пользователи успешно пользуются этим средством, однако находится немало и таких людей, которые его отключают по различным причинам (экономия дискового пространства, предрассудки по-поводу вирусов, которые часто облюбовывают для своего поселения папку System Volume Information).

Знакома ситуация, когда при возникновении какой-либо проблемы с работоспособностью ОС запуск SR становится невозможным, или же доступные контрольные точки восстановления для отката на работоспособную дату отсутствуют? Думаю многие с этим сталкивались. Почему так происходит – отдельная тема для разговора, но согласитесь, досадно, когда из-за подобного «сюприза» мы неожиданно лишаемся самой простой возможности возврата к нормальной работе компьютера.

В обычных условиях контрольные точки создает сама система без вмешательства пользователя. Это происходит, например, при установке новых программ, оборудования или обновлений для операционной системы. Но, как вы знаете, такие точки можно создать и самому. Для автоматизации этого действия (своего рода подстраховки для забывчивых пользователей) и предназначен данный скрипт.

Скрипт работает как в фоновом режиме без вывода сообщений и окон:

If WScript.Arguments.Count = 0 Then
 Set objShell = CreateObject(“Shell.Application”)
 objShell.ShellExecute “wscript.exe”, Chr(34) & WScript.ScriptFullName & Chr(34) & ” Run”, , “runas”, 1
Else
 GetObject(“winmgmts:\\.\root\default:Systemrestore”).CreateRestorePoint “Текущая Точка Восстановления”, 0, 100
End If

так и с выводом окна для введения наименования для точки восстановления:

If GetOS = “Windows 7″ Then
 If WScript.Arguments.length =0 Then
 Set objShell = CreateObject(“Shell.Application”)
 objShell.ShellExecute “wscript.exe”, “”"” & _
 WScript.ScriptFullName & “”"” & ” uac”,”", “runas”, 1
 Else
 CreateSRP
End If
End If

Sub CreateSRP

msg = “Точка восстановления успешно создана.” & vbCR
msg = msg & “” & vbCR
msg = msg & “Дата и время создания: ” & Date & ” ” & Time

Set SRP = getobject(“winmgmts:\\.\root\default:Systemrestore”)
 sDesc = “”
 sDesc = InputBox (“Введите описание для точки восстановления.”, “Создание точки восстановления системы”,”")
 If Trim(sDesc) <> “” Then
 sOut = SRP.createrestorepoint (sDesc, 0, 100)

If sOut <> 0 Then
 WScript.echo “Error ” & sOut & _
 “: Невозможно создать точку восстановления системы.”
 Else
 MsgBox msg

End If
End If
End Sub

Function GetOS
 Set objWMI = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & _
 “.\root\cimv2″)
 Set colOS = objWMI.ExecQuery(“Select * from Win32_OperatingSystem”)
 For Each objOS in colOS

If instr(objOS.Caption, “Windows 7″) Then
 GetOS = “Windows 7″

 End If
 Next
End Function

Для создания скрипта выполните следующие действия:

1) Скопируйте выбранный Вами код в любой текстовый редактор (например, Блокнот).
2) Нажмите CTRL+S и сохраните файл с любым именем и расширением .vbs в любой папке
3) Если вы выбираете тип файла: Текстовые файлы, то имя файла в кавычки брать обязательно. (Например: “crp.vbs”)
4) Если вы выбираете тип файла: Все файлы, то имя файла в кавычки брать не надо.
5) Создайте ярлык для созданного Вами файла скрипта в Автозагрузку.
6) Удерживая нажатой клавишу Alt перетяните иконку файла скрипта в папку Автозагрузка в меню Пуск.

Теперь при каждом входе в систему скрипт будет автоматически запускаться, и создавать контрольную точку восстановления системы.

Чтобы изменить периодичность создания точек восстановления сделайте следующее:

1) Запустите Планировщик заданий. Пуск -> Панель управления -> Администрирование -> Планировщик заданий

2) В дереве слева откройте Библиотека планировщика задач -> Microsoft -> Windows -> SystemRestore

3) Щелкните правой кнопкой мыши в верхнем среднем окне на файл SR и выберите Свойства.

4) В открывшемся окне перейдите на вкладку Триггеры.

5) Нажмите Создать и задайте необходимые вам временные параметры, либо выберите уже имеющийся триггер (Например, Ежедневно) и нажмите Изменить. Для удаления созданых триггеров выберите его и нажмите Удалить.

6) Нажмите на ОК для принятия изменений.

Успешного использования!

 

[Ваня]

Спасибо, поставил - удобно!