Как автоматично да създадете точка за възстановяване на системата при първото стартиране. на деня?

Как автоматично да създадете точка за възстановяване на системата при първото зареждане за деня?

Въведение

Използвайки Windows Management Instrumentation, можете да управлявате възстановяването на системата. полезност ефективно. Тази статия ще обясни как автоматично да създадете a. Точка за възстановяване на системата при първото зареждане за деня.

Създавайте точка за възстановяване ежедневно, като използвате този скрипт

Предоставеният по-долу скрипт ще провери дали има точки за възстановяване на системата. вече създаден за текущия ден. Ако не съществува точка за възстановяване на системата за. текущия ден, скриптът създава точка за възстановяване на системата.

За да създадете точка за възстановяване по време на първото стартиране за деня, копирайте следните редове в документ на Notepad и запазете като файл. с разширение .VBS (CreateRP.VBS). След това поставете. сценария към Стартиране папка, така че да работи по време на влизане.

' Създава SR точка по време на първото стартиране за деня
' 18 декември 2005 г
' За Windows XP
' 2005 Рамеш Шринивасан
' уебсайт: https://www.winhelponline.com/xp

Изрична опция
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DСъвпадение = 0
Задайте SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Задайте dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Задайте objWMI = getobject( _
"winmgmts:\\.\root\default").InstancesOf ("възстановяване на системата")
За всяка clsPoint в objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Месец (RPDate) & "/" & Day (RPDate) & "/" & Year (RPDate)
D2 = месец (дата) & "/" & Ден (дата) & "/" & Година (дата)
Ако D1 = D2, тогава DMatch = 1
Следващия

Функция getmytime (wmitime)
dtmInstallDate. Стойност = wmitime
getmytime = dtmInstallDate. GetVarDate
крайна функция

Ако DMatch = 0 Тогава
CSRP = SRP.createrestorepoint („Ежедневна точка за възстановяване“, 0, 100)
Край, ако