Πώς να δημιουργήσετε αυτόματα ένα σημείο επαναφοράς συστήματος κατά την πρώτη εκκίνηση της ημέρας;
Εισαγωγή
Χρησιμοποιώντας τα όργανα διαχείρισης των Windows, μπορείτε να διαχειριστείτε την Επαναφορά Συστήματος. αποτελεσματική χρησιμότητα. Αυτό το άρθρο θα εξηγήσει πώς να δημιουργήσετε αυτόματα ένα. Σημείο επαναφοράς συστήματος κατά την πρώτη εκκίνηση της ημέρας.
Δημιουργήστε ένα σημείο επαναφοράς καθημερινά χρησιμοποιώντας αυτό το σενάριο
Το σενάριο που παρέχεται παρακάτω θα ελέγξει εάν υπάρχουν σημεία επαναφοράς συστήματος. έχει ήδη δημιουργηθεί για την τρέχουσα ημέρα. Εάν δεν υπάρχει σημείο επαναφοράς συστήματος για το. την τρέχουσα ημέρα, το σενάριο δημιουργεί ένα σημείο επαναφοράς συστήματος.
Για να δημιουργήσετε ένα σημείο επαναφοράς κατά την πρώτη εκκίνηση της ημέρας, αντιγράψτε τις ακόλουθες γραμμές σε ένα έγγραφο Σημειωματάριο και αποθηκεύστε ως αρχείο. με επέκταση .VBS (CreateRP.VBS). Στη συνέχεια, τοποθετήστε. το σενάριο στο Ξεκίνα φάκελο ώστε να εκτελείται κατά τη σύνδεση.
Δημιουργεί ένα σημείο SR κατά την πρώτη εκκίνηση της ημέρας
18 Δεκεμβρίου 2005
Για Windows XP
2005 Ramesh Srinivasan
Ιστότοπος: https://www.winhelponline.com/xp
Επιλογή ρητή
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMMatch
DMMatch = 0
Ορισμός SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Ορίστε dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Ορισμός objWMI = getobject(_
"winmgmts:\\.\root\default").InstancesOf ("systemrestore")
Για κάθε clsPoint Στο objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Μήνας (RPDate) & "/" & Day (RPDate) & "/" & Year (RPDate)
D2 = Μήνας (Ημερομηνία) & "/" & Ημέρα (Ημερομηνία) & "/" & Έτος (Ημερομηνία)
Αν D1 = D2 Τότε DMMatch = 1
Επόμενο
Λειτουργία getmytime (wmtime)
dtmΗμερομηνία εγκατάστασης. Αξία = wmtime
getmytime = dtmΗμερομηνία εγκατάστασης. GetVarDate
Λειτουργία τέλους
Αν DMMatch = 0 Τότε
CSRP = SRP.createrestorepoint ("Ημερήσιο σημείο επαναφοράς", 0, 100)
Τέλος εαν