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

[Eternity]

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

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

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) Нажмите на ОК для принятия изменений.