AUTOMATED RESTORE

I found this cool VB script while surfing the other day .just copy paste the part after quotes in a notepad file (don’t copy the quotes)save the file as .vbs n run it to ensure automatic system restore



' Copy from here --------------------->
' Create a System Restore Point
' supported on: Windows XP

Const DEVICE_DRIVER_INSTALL = 10
Const BEGIN_SYSTEM_CHANGE = 100

strComputer = "."
Set objWMI = GetObject("winmgmts:" _
& "\\" & strComputer & "\root\default")

Set objItem = objWMI.Get("SystemRestore")
errResults = objItem.CreateRestorePoint _
("AUTOMATED RESTORE by ARKA", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)

'<------------------------ To here

copy and save as *.vbs....use global startup...stay safe !


It creates a Restore Point whenever executed..Written in VBScript using WMI.
You can copy it to the startup folder...so that..every time the computer boots..it creates a restore point...So that you can restore your computer back...

No comments:

Post a Comment