נקודת שחזור מערכת ל-windows - בלחיצת כפתור (או שתיים)

צרו קובץ בשם כלשהו, עם סיומת vbs, למשל:
נקודת שחזור.vbs
ואל תוך הקובץ העתיקו את השורות הבאות:

Set IRP = getobject("winmgmts:\\.\root\default:Systemrestore")
MYRP = IRP.createrestorepoint ("My Restore Point", 0, 100)

מקמו את הקובץ איפה שתרצו (שולחן העבודה למשל).
בכל הרצה של הקובץ, תיווצר נקודת שחזור מערכת חדשה בשם:  My Restore Point.
ניתן לשנות את השם הזה לכל שם שתרצו.

גרסא מתקדמת:
הוספתי שתי שורות עבור קביעת שם נקודת השחזור ע"י המשתמש:

RestorePointName= inputBox("הכנס שם לנקודת השחזור")
Set IRP = getobject("winmgmts:\\.\root\default:Systemrestore")
MYRP = IRP.createrestorepoint (RestorePointName, 0, 100)
msgBox ": נוצרה נקודת שחזור בשם" + vbCrLf + RestorePointName

עבור המתכנתים שבינינו:
כמו שאפשר להבין מוגדר משתנה (צבע כהה) בשביל לקבל את השם הרצוי לנקודת השחזור.
הפקודה vbCrLf שהיא קיצור של: Carriage return + Line feed
 היא פקודת ירידת שורה.

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