System Restore Point Shortcut

Brink · 14 Nov 2014

BKraengel said:

Hi Shawn,

After all this time I hope I can still contact you. I just stumbled across your Restore Point Shortcuts. They are just what I've been looking for, thank you.

I've been trying to follow your logic, but there are a few rough spots I don't understand...

1. You probably already know this, but in Windows 8.1 the SystemRestorePointCreationFrequency key is included in the Registry by default.

2. In your CreateSRP sub, the second line of code is redundant and can be completely removed.

3. You create an Install (Type 0) restore point. Is there any (simple) way of creating Manual, Automatic or Scheduled types? There are no options to do this in CreateRestorePoint, but Windows does it with the restore points it creates.

4. Is there any harm in creating a BEGIN_SYSTEM_CHANGE (EventType 100) restore point without closing it with a END_SYSTEM_CHANGE (EventType 101)?

5. Where can I find a list of the Error Codes returned by CreateRestorePoint?

Hello BK, and welcome to Seven Forums.

1) Yeah, I include it in the .vbs to make sure it's set properly in the registry.

2) The 2nd line of code is there to make it easy for someone to change it to have a restore point name they may want instead.

3) If you like, you could use the method 2 in the tutorial below to have a scheduled create restore point using Task Manager.

System Restore Point : Create at System Startup

4) It's important to end it to prevent issues or errors.

5) I'm not aware of a list of error codes, but Googling a specific error code will usually give you good results.

BKraengel · 14 Nov 2014

Hi Shawn,

Thank you.

1. In question 3 I was referring to the fact that all your restore points are ..., 0, 100. A "0" restore point shows up in the Restore window as Type Install. When Windows creates a restore point it Types it as Install, Uninstall, Manual, Scheduled, Automatic, etc. Is there any way to change the Type to Manual, Automatic or Scheduled to make what you see in the Restore window agree with the Restore Point you are creating?

2. In question 4 I was also referring to the fact that all your restore points are ...0, 100. A "100" restore point is a BEGIN_SYSTEM_CHANGE, but you don't close it with an END_SYSTEM_CHANGE. Is this harmful? Is BEGIN_SYSTEM_CHANGE the actual beginning of a process or just a description of the restore point?

Brink · 14 Nov 2014

So far, I've only been able to have the "Type" show as either "Install" (1, 10), "System" (11, 14), "Uninstall" (2), or "Unknown" (other numbers so far) by changing 0 to that number. I haven't found the number for "Manual" though.

The "100" is set properly to begin the restore point. It'll automatically end when finished.

BKraengel · 28 Dec 2014

Hi Shawn,

Have you tried to run any of the automatic/scheduled programs in Win 8.1? Every time I try the infamous "What program do you want to use..." window pops up. That's telling me that the programs can't find WSH, so I give it to them. Here's how...

For the Program/Script on the Actions tab in Task Scheduler I enter simply Wscript.exe and for the Argument I use a fragment of the code from the ELSE clause:
Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
sDesc = "Scheduled Restore Point"
sOut = SRP.createrestorepoint (sDesc, 11, 100)
If sOut <> 0 Then
MsgBox "Error " & sOut & ": Unable to create restore point.", 16, "Create Restore Point"
End If

Works fine! Every time!

Anyway, I don't (1) fully understand your code (or is it Ted's) or (2) see how the program is supposed to run.

1. What is the purpose of, why is it needed & what is it supposed to do...
If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1

2. Suppose the IF is True. The code executes then Exits without ever having set a restore point. So how do you get back in the program to set the restore point? LOL if it's scheduled for the wee hours. You can do it all in one pass if you change the IF-THEN-ELSE to IF-THEN and move the END IF up to where the ELSE was.

Brink · 28 Dec 2014

Hello BK,

I wrote the .vbs scripts for the shortcuts in this tutorial.

That part of the code is to give you a UAC prompt to have the shortcut "Run as administrator". :)

Viper3773 · 02 Sep 2015

Great script! I have been using for a while now on Windows 8. To make this work with Windows 10, you need to make two quick changes.

Bonus info: If you want to make this script part of a scheduled task, then create a task that starts this program:

Code:

C:\Windows\System32\wscript.exe

With a path to your VBS file as the arguments (in quotes), so for example:

Code:

"C:\Users\Admin\Documents\Restore\Instant_Restore_Point.vbs"

Brink · 02 Sep 2015

Viper3773 said:

Great script! I have been using for a while now on Windows 8. To make this work with Windows 10, you need to make two quick changes.

Bonus info: If you want to make this script part of a scheduled task, then create a task that starts this program:

Code:

C:\Windows\System32\wscript.exe

With a path to your VBS file as the arguments (in quotes), so for example:

Code:

"C:\Users\Admin\Documents\Restore\Instant_Restore_Point.vbs"

If you like, you can use the Windows 10 version below instead. :)

System Restore Point shortcut - Create in Windows 10 - Windows 10 Forums

Viper3773 · 02 Sep 2015

Brink said:

Viper3773 said:

Great script! I have been using for a while now on Windows 8. To make this work with Windows 10, you need to make two quick changes.

Bonus info: If you want to make this script part of a scheduled task, then create a task that starts this program:

Code:

C:\Windows\System32\wscript.exe

With a path to your VBS file as the arguments (in quotes), so for example:

Code:

"C:\Users\Admin\Documents\Restore\Instant_Restore_Point.vbs"

If you like, you can use the Windows 10 version below instead. :)

System Restore Point shortcut - Create in Windows 10 - Windows 10 Forums

Would have been helpful before :) But admittedly I did not look. Anything different besides what I stated?

Brink · 02 Sep 2015

Nope, that was. We just had a separate version at our sister site www.tenforums.com instead. :)

jdUnionngaden · 18 Apr 2016

Good morning All! ... Shawn Brink (?)
I've been using Shawn's Restore Point script for 4+ years on Windows 7. Has someone written one for Windows 10?

Thanks in advance for your assistance!
Best,
/jdU

System Restore Point Shortcut

More

Uh-Oh!!