Quickly reset all the System Restore points (Windows XP)

The following script (from MSDN - slightly modified) 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.