Cum se creează automat un punct de restaurare a sistemului la prima pornire. a zilei?

Cum se creează automat un punct de restaurare a sistemului la prima pornire a zilei?

Introducere

Folosind Windows Management Instrumentation, puteți gestiona System Restore. utilitate eficient. Acest articol va explica cum să creați automat un. Punctul de restaurare a sistemului la prima pornire a zilei.

Creați un punct de restaurare zilnic folosind acest script

Scriptul furnizat mai jos va verifica dacă există puncte de restaurare a sistemului. deja creat pentru ziua curentă. Dacă nu există un punct de restaurare a sistemului pentru. ziua curentă, scriptul creează un punct de restaurare a sistemului.

Pentru a crea un punct de restaurare în timpul primei porniri a zilei, copiați următoarele rânduri într-un document Notepad și salvați ca fișier. cu extensia .VBS (CreateRP.VBS). Apoi, loc. scenariul la Lansare folder astfel încât să ruleze în timpul conectării.

' Creează un punct SR în timpul primei porniri a zilei
„18 decembrie 2005
' Pentru Windows XP
2005 Ramesh Srinivasan
'Site web: https://www.winhelponline.com/xp

Opțiunea explicită
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Setați SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Set dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Setați objWMI = getobject(_
„winmgmts:\\.\root\default”).InstancesOf („systemrestore”)
Pentru fiecare clsPoint în objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Lună (RPDate) și „/” și Zi (RPDate) și „/” și An (RPDate)
D2 = Luna (Data) & „/” & Zi (Data) și „/” și An (Data)
Dacă D1 = D2, atunci DMatch = 1
Următorul

Funcția getmytime (wmitime)
dtmInstallDate. Valoare = wmitime
getmytime = dtmInstallDate. GetVarDate
Funcția finală

Dacă DMatch = 0, atunci
CSRP = SRP.createrestorepoint („Punctul zilnic de restaurare”, 0, 100)
Încheiați dacă