This code snippet allows you to be about 78% sure that you restore points are all valid, a feature that’s not available in XP until it’s to late (as has happened to me on every single occasion that I’ve attempted to use this feature.
Create a new Scheduled Task and point it to the VBS file. After the script runs, it will leave a dialog telling you whether or not the Restore Point was successfully created. This script can be viewed in Notepad or any text editor, as to the specific Registry key and value that are updated. For an EXE version of this utility, go to: -
http://www.dougknox.com/xp/utils/SysRestorePoint.
'Unattended System Restore Point
'sysrestorepoint.vbs
'© Doug Knox - rev 02/11/2002
'This code may be freely distributed/modified
'Downloaded from
www.dougknox.com
'Extracted from original code by Bill James -
www.billsway.com
Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")
msg = "New Restore Point successfully created." & vbCR
msg = msg & "It is listed as: " & vbCR
msg = msg & "Automatic Restore Point " & Date & " " & Time
'Put a ' in front of the next five lines to disable the Success Failed Prompt.
If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then
MsgBox msg
Else
MsgBox "Restore Point creation Failed!"
End If
'Remove the ' from the next 3 lines to only alert you if the process failed
'If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) <> 0 Then
' MsgBox "Restore Point creation Failed!"
'End If
:happy: :happy: