Старый 29.03.2015, 22:12   #1
Eternity
Администратор
 
Аватар для Eternity
 
Регистрация: 21.11.2014
Сообщений: 2,965
Сказал(а) спасибо: 12
Поблагодарили 86 раз(а) в 80 сообщениях
Настроение: Daring
Репутация: 107
По умолчанию автоматическое создание точки восстановления системы при старте

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

Скрипт работает как в фоновом режиме без вывода сообщений и окон:
Код:
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) Нажмите на ОК для принятия изменений.
Eternity вне форума   Ответить с цитированием Вверх
Пользователь сказал cпасибо:
men (03.04.2015)
Старый 03.04.2015, 15:46   #2
men
Форумчанин
 
Аватар для men
 
Регистрация: 26.11.2014
Сообщений: 572
Сказал(а) спасибо: 16
Поблагодарили 59 раз(а) в 59 сообщениях
Репутация: 69
По умолчанию Re: автоматическое создание точки восстановления системы при старте

Спасибо за совет и скрипты, полезно
men вне форума   Ответить с цитированием Вверх
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы можете создавать новые темы
Вы можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.



Текущее время: 19:59. Часовой пояс GMT +3.

 
 
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
Рейтинг@Mail.ru