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

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

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

Код:

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