Automatic System Restore

  • Thread starter Thread starter Jeff Wen
  • Start date Start date
J

Jeff Wen

Hi all,

Is there a method to create a system restore point
automatically? For example, every 2 days when I first
start my PC. I tried Scheduled Task, but it only opens
System Restore software and ask me to do the rest
manually, not a real automation.

Any idea? Please help!
 
x-no-archive: yes

Jeff Wen said:
Is there a method to create a system restore point
automatically? For example, every 2 days when I first
start my PC. I tried Scheduled Task, but it only opens
System Restore software and ask me to do the rest
manually, not a real automation.

Any idea? Please help!
Click to expand...

Kelly has you set up. Just in case anyone is interested, the code below will let you manually specify a Restore Point name when run. Obviously, then, this is *not* for use with Task Scheduler, but rather only on demand (e.g. by a shortcut in the Quick Launch area or on the Desktop).

<--- Code begins below this line--->
' This script creates a "custom" Restore Point under Windows XP.
' The user will be prompted for a Restore Point name.

rp = InputBox(vbCR & vbCR & "Enter a Restore Point name:", "System Restore", "Manual Restore Point")

If rp = "" Then
MsgBox "No Restore Point was created.", vbExclamation, "System Restore"
Else
SuccessMsg = "Restore Point successfully created:" & vbCR & vbCR & Date & " " & Time & " " & rp

If (GetObject("winmgmts:\\.\root\default:SystemRestore").CreateRestorePoint(rp, 0, 100)) = 0 Then
MsgBox SuccessMsg, vbInformation, "System Restore"
Else
MsgBox "An error occurred creating the Restore Point:" & vbCR & vbCR & rp & vbCR & vbCR & "The error occurred at: " & Date & " " & Time, vbCritical, "System Restore"
End If
End If

Set rp = Nothing
<--- Code ends above this line--->
 
Back
Top