Wie erstellt man beim ersten Hochfahren des Tages automatisch einen Systemwiederherstellungspunkt?
Einführung
Mit der Windows-Verwaltungsinstrumentation können Sie die Systemwiederherstellung verwalten. effektiv nutzen. In diesem Artikel wird erläutert, wie Sie automatisch eine. Systemwiederherstellungspunkt beim ersten Hochfahren des Tages.
Erstellen Sie täglich einen Wiederherstellungspunkt mit diesem Skript
Das unten bereitgestellte Skript überprüft, ob Systemwiederherstellungspunkte vorhanden sind. bereits für den aktuellen Tag erstellt. Wenn kein Systemwiederherstellungspunkt für die. aktuellen Tag erstellt das Skript einen Systemwiederherstellungspunkt.
Um beim ersten Start des Tages einen Wiederherstellungspunkt zu erstellen, kopieren Sie die folgenden Zeilen in ein Notepad-Dokument und speichern Sie sie als Datei. mit .VBS-Erweiterung (CreateRP.VBS). Dann platzieren. das Skript zum Start-up Ordner, damit er während der Anmeldung ausgeführt wird.
' Erstellt einen SR-Punkt beim ersten Start des Tages
'18. Dezember 2005
'Für Windows XP
' 2005 Ramesh Srinivasan
' Webseite: https://www.winhelponline.com/xp
Option explizit
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Setze SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Set dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Setze objWMI = getobject(_
"winmgmts:\\.\root\default").InstancesOf ("systemrestore")
Für jeden clsPoint in objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Monat (RPDate) & "/" & Tag (RPDate) & "/" & Jahr (RPDate)
D2 = Monat (Datum) & "/" & Tag (Datum) & "/" & Jahr (Datum)
Wenn D1 = D2, dann DMatch = 1
Nächste
Funktion getmytime (wmitime)
dtmInstallDate. Wert = wmittime
getmytime = dtmInstallDate. GetVarDate
Ende Funktion
Wenn DMmatch = 0 Dann
CSRP = SRP.createrestorepoint ("Täglicher Wiederherstellungspunkt", 0, 100)
Ende, wenn