How to automatically set a new System Restore Point

Copy and save the following as NewRestorePoint.vbs:

' begin code
CONST DEVICE_DRIVER_INSTALL = 10
CONST BEGIN_SYSTEM_CHANGE = 100
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default")
Set objItem = objWMIService.Get("SystemRestore")
Set objShell = CreateObject("WScript.Shell")
set objEnv = objShell.Environment("PROCESS")
objEnv("SEE_MASK_NOZONECHECKS") = 1
errResults = objItem.CreateRestorePoint _
    ("hepya.com restore point", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
objEnv.Remove("SEE_MASK_NOZONECHECKS")
' end of code

• Now edit your Startup group (right click Start, choose Open All Users, double click Programs then Startup)
• Copy or move the NewRestorePoint.vbs file above into that Startup folder

Voila!  From now on, every time your computer starts up, you'll have a new System Restore Point, which is VERY useful if your computer starts acting up at any point after that!

---

If the above helped you in any way, please click the PayPal DONATE link here. It's safe. Thanks!
--------------------------------------------------------------------------------
For in-home/on-site computer repair service in and around Nashville (remove viruses, connect to the Internet, setup new systems, fix a myriad of problems), call Bill at (615) 479-4981.

---