How to quickly reset all the System Restore points.

The following script can be used to clear the System Restore points quickly. It automatically disables System Restore, clears all the Restore points and re-enables System Restore on all drives. Copy the following script to a notepad and save as "ResetSR.VBS".

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default")
Set objItem = objWMIService.Get("SystemRestore")
errResults = objItem.Disable("")
errResults = objItem.Enable("")

The above is an equivalent of selecting Turn Off System Restore on all drives (which clears all the Restore points) and the last line in the script re-enables the System Restore points.