' 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!
--------------------------------------------------------------------------------
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.




