כיצד ליצור באופן אוטומטי נקודת שחזור מערכת עם האתחול הראשון. של היום?

כיצד ליצור באופן אוטומטי נקודת שחזור מערכת עם האתחול הראשון של היום?

מבוא

באמצעות מכשור ניהול Windows, אתה יכול לנהל את שחזור המערכת. תועלת ביעילות. מאמר זה יסביר כיצד ליצור באופן אוטומטי א. נקודת שחזור מערכת עם האתחול הראשון של היום.

צור נקודת שחזור מדי יום באמצעות סקריפט זה

הסקריפט שסופק להלן יבדוק אם יש נקודות לשחזור מערכת. כבר נוצר עבור היום הנוכחי. אם לא קיימת נקודת שחזור מערכת עבור. ביום הנוכחי, הסקריפט יוצר נקודת שחזור מערכת.

כדי ליצור נקודת שחזור במהלך האתחול הראשון של היום, העתק את השורות הבאות למסמך Notepad ושמור כקובץ. עם סיומת .VBS (CreateRP.VBS). ואז, מקום. התסריט ל סטארט - אפ התיקיה כך שהיא תפעל במהלך הכניסה.

' יוצר נקודת SR במהלך האתחול הראשון של היום
18 בדצמבר, 2005
' עבור Windows XP
' 2005 ראמש סריניוואסן
' אתר אינטרנט: https://www.winhelponline.com/xp

אפשרות מפורשת
Dim SRP, CSRP, objWMI, clsPoint
עמום RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
הגדר SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
הגדר dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
הגדר objWMI = getobject( _


"winmgmts:\\.\root\default").InstancesOf ("שחזור מערכת")
עבור כל clsPoint ב-objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = חודש (RPDate) & "/" ויום (RPDate) & "/" ושנה (RPDate)
D2 = חודש (תאריך) & "/" & יום (תאריך) & "/" ושנה (תאריך)
אם D1 = D2 אז DMatch = 1
הַבָּא

פונקציה getmytime (wmitime)
dtmInstallDate. ערך = wmitime
getmytime = dtmInstallDate. GetVarDate
סוף פונקציה

אם DMatch = 0 אז
CSRP = SRP.createrestorepoint ("נקודת שחזור יומית", 0, 100)
סוף אם