Shortcut to create a restore point?

Burdus32 said:

Hello Sven,
there is also a program called 'Quick Restore Point Maker'. Just one click and it generates a restore point. You could put a shortcut on your desktop or taskbar.
There are a few different versions. One where you can name the point and another which adds a right click "Create Restore Point" option. It's very handy, I use it all the time. :)

..... OR from post #2 that does that.

System Restore Point Shortcut

LOL, no problem at all mate. :)

I test a lot of software on my main PC and as often as not I want to get rid of what I'm testing.
Thank God and Microsoft for the System Restore function in Windows. And woe be to him/her that turns System Restore OFF.


Hardly a week goes by, that I don't have to call on System Restore to get rid of some POS.


Going all the way back to the early days of Windows XP, I've relied heavily on System Restore to get me out of trouble. To do this simple chore of making a new restore point I've always called on a simple script.


For each of the OS's, XP, Win-7 and Win-10 I needed a different script. I sought help on this forum and I found it (thank you Sean) .


To make sure that I have a fresh Restore Point when I need it, I put the little "Create Restore Point" script in my Startup folder, so I get a new restore point created every time I boot up my PC.


I know this script has been posted before, but I doubt that it will hurt anything to post it again.


' Created by: Shawn Brink
' Windows 7 Help Forums
' Tutorial: System Restore Point Shortcut - Windows 7 Help Forums

Function GetOS
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!" & ".\root\cimv2")
Set colOS = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOS
If instr(objOS.Caption, "Windows 8") Then
GetOS = "Windows 8"
elseIf instr(objOS.Caption, "Windows 7") Then
GetOS = "Windows 7"
elseIf instr(objOS.Caption, "Vista") Then
GetOS = "Windows Vista"
elseIf instr(objOS.Caption, "Windows XP") Then
GetOS = "Windows XP"
End If
Next
End Function


If GetOS = "Windows XP" Then
CreateSRP

End If

If GetOS = "Windows Vista" Or GetOS = "Windows 7" Then
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
CreateSRP
End If
End If

If GetOS = "Windows 8" Then
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore"
strValueName = "SystemRestorePointCreationFrequency"
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,0
CreateSRP
End If
End If


Sub CreateSRP

GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint "Instant Restore Point", 0, 100

End Sub


Just copy and paste the blue lines above, into Notepad and save with the name "Instant Restore Point.vbs" and save it to your desktop or your Startup Folder.


Cheers Mates!