Kuidas luua automaatselt süsteemitaastepunkt päeva esimesel käivitamisel?
Sissejuhatus
Windowsi haldusinstrumentide abil saate hallata süsteemitaastet. kasulikkust tõhusalt. See artikkel selgitab, kuidas automaatselt luua a. Süsteemi taastepunkt päeva esimesel käivitamisel.
Looge iga päev selle skripti abil taastepunkt
Allpool toodud skript kontrollib, kas seal on süsteemitaastepunkte. praeguseks päevaks juba loodud. Kui selle jaoks pole süsteemitaastepunkti. praegusel päeval loob skript süsteemitaastepunkti.
Taastepunkti loomiseks päeva esimesel käivitamisel kopeerige järgmised read Notepadi dokumenti ja salvestage failina. .VBS laiendiga (CreateRP.VBS). Siis koht. skripti juurde Käivitamine kausta, nii et see töötab sisselogimise ajal.
Loob SR-punkti päeva esimesel käivitamisel
18. detsember 2005
Windows XP jaoks
2005 Ramesh Srinivasan
' Veebisait: https://www.winhelponline.com/xp
Valik Selgesõnaline
Hämar SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Set SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Set dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Määra objWMI = getobject(_
"winmgmts:\\.\root\default"). InstancesOf ("süsteemitaaste")
Iga clsPoint jaoks objWMI-s
RPDate = getmytime (clsPoint.creationtime)
D1 = kuu (RPDate) & "/" & päev (RPDate) & "/" & Aasta (RPDate)
D2 = kuu (kuupäev) & "/" & Päev (kuupäev) & "/" ja aasta (kuupäev)
Kui D1 = D2, siis DMatch = 1
Edasi
Funktsioon getmytime (wmitime)
dtmInstallDate. Väärtus = wmitime
getmytime = dtmInstallDate. GetVarDate
lõpufunktsioon
Kui DMatch = 0 Siis
CSRP = SRP.createrestorepoint ("Daily Restore Point", 0, 100)
Lõpeta Kui