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


Для создания точки восстановления в Windows 7 вовсе не обязательно лезть в меню Защита системы. Можно выбрать беспроигрышный вариант – совершенно автоматически создавать точку восстановления при каждом запуске Windows 7. Следовательно, один раз все настроили и дальше отдыхаете.

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

Чуть дальше представлено два варианта кода – что с ним нужно сделать?

Скопируйте выбранный код в любой текстовый документ и сохраните с расширением .vbs.

Если для сохранения кода используется Блокнот, то при сохранении файла выберите такой тип файла, как Текстовые файлы, а название файла непременно возьмите в кавычки, например, “script.vbs”. Если же выбран типа файла Все файлы, то кавычки использовать не нужно.

Теперь скопируйте свежесозданный файл скрипта в любое место, где ему будет тепло и уютно. Скажем, просто на диск C:.

Теперь главное – нажмите и удерживайте нажатой клавишу <Alt> и перетащите значок файла скрипта в папку Автозагрузка, что находится в меню Пуск > Все программы.

Обратите внимание – чтобы все получилось, наведите курсор с перетаскиваемым значком файла сначала на папку Автозагрузка, и когда она раскроется – ниже надписи (пусто) либо другой, уже существующей, надписи. В любом случае рядом с курсором появится надпись Создать ссылку в Автозагрузка (см. скриншот выше) – именно то, что нам и нужно. Отпустите левую кнопку мыши.

Если вам не хочется удерживать клавишу <Alt> при перетаскивании, то можно сделать проще. Щелкните на значке скрипта правой кнопкой мыши и выберите команду Создать ярлык. Затем перетащите созданный ярлык в папку Автозагрузка, просто зажав левую кнопку мыши – в таком варианте клавиша <Alt> уже не понадобится.

Как вы уже поняли, хитрость с зажатой клавишой <Alt> при перетаскивании значка позволяет создать в меню ссылку на нужную программу – то есть, фактически, ярлык на нее.

С нюансами разобрались, теперь приведем нужный код, который, напоминаем, следует сохранить в текстовом файле с расширением .vbs.

Читать также  Одноклассники: новый способ мошенничества

Код 1: автоматическое создание точки восстановления

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:\.rootdefault:Systemrestore").CreateRestorePoint "Текущая Точка Восстановления", 0, 100
End If

Код 2: создание точки восстановления с вводом ее названия

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:\.rootdefault: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}!\" & _
".rootcimv2")
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

Какой бы вариант вы не выбрали, теперь при каждом запуске Windows 7 будет автоматически создаваться точка восстановления. Какая прелесть! До чего же люблю когда все делается без моего участия ^_^ Значит, можно расслабиться и заняться делом, скажем, проиграть в Косынку.

+ There are no comments

Add yours