Создание точки восстановления системы при старте системы - Администрирование в Windows 7 - Все о WINDOWS 7 - Настройка и оптимизация компьютера

Создание точки восстановления системы при старте системы Если Вам необходимо создать точку восстановления системы при старте системы не используя апплет "Защита системы", то Вы можете создать указанного ниже содержания скрипт и добавить ярлык для него в автозагрузку. В фоновом режиме без вывода сообщений и окон: 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 в любой папке (Например, на диске C:) 3) Если вы выбираете тип файла: Текстовые файлы, то имя файла в кавычки брать обязательно. (Например: "crp.vbs") 4) Если вы выбираете тип файла: Все файлы, то имя файла в кавычки брать не надо. 5) Создайте ярлык для созданного Вами файла скрипта в Автозагрузку. 5.1) Удерживая нажатой клавишу Alt перетяните иконку файла скрипта в папку Автозагрузка в меню Пуск.
1 2 3 4 5 Категория: Администрирование в Windows 7 \| Добавил: Segun (12.06.2011)
Просмотров: 1694 \| Рейтинг: 0.0/0