Come creare automaticamente un punto di ripristino del sistema al primo avvio della giornata?
introduzione
Utilizzando Strumentazione gestione Windows, è possibile gestire il Ripristino configurazione di sistema. utilità in modo efficace. Questo articolo spiegherà come creare automaticamente un file. Punto di ripristino del sistema al primo avvio della giornata.
Crea un punto di ripristino ogni giorno usando questo script
Lo script fornito di seguito verificherà se sono presenti punti di ripristino del sistema. già creato per il giorno corrente. Se non esiste alcun punto di ripristino del sistema per il. giorno corrente, lo script crea un punto di ripristino del sistema.
Per creare un punto di ripristino durante il primo avvio della giornata, copiare le seguenti righe in un documento del Blocco note e salvare come file. con estensione .VBS (CreateRP.VBS). Quindi, posto. lo script per il Avviare cartella in modo che venga eseguita durante l'accesso.
' Crea un punto SR durante il primo avvio della giornata
' 18 dicembre 2005
'Per Windows XP
'2005 Ramesh Srinivasan
' Sito web: https://www.winhelponline.com/xp
Opzione esplicita
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
Dmatch = 0
Imposta SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Set dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Imposta objWMI = getobject( _
"winmgmts:\\.\root\default").InstancesOf ("systemrestore")
Per ogni clsPoint in objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Mese (RPDate) & "/" & Giorno (RPDate) & "/" & Anno (RPDate)
D2 = mese (data) & "/" & Giorno (data) e "/" e anno (data)
Se D1 = D2 Allora DMatch = 1
Prossimo
Funzione getmytime (wmitime)
dtmInstallDate. Valore = wmitime
getmytime = dtmInstallDate. OttieniVarDate
fine funzione
Se DMatch = 0 Allora
CSRP = SRP.createrestorepoint ("Punto di ripristino giornaliero", 0, 100)
Finisci se