Windows 10: A vbs script to create a system restore point?

Hi. I have always used this vbs script in Windows 7.. it brings up a dialogue box, into which you enter your restore point naem, and that's it. Works a charm. But I can't see how to adapt it so that it will work in Windows 10? Can anyone kindly help? Thanks!

Code: WScript.Sleep 1000 If GetOS = "Windows 7" Then If WScript.Arguments.length =0 Then Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", """" & _ WScript.ScriptFullName & """" & " uac","", "runas", 1 Else CreateSRP End If End If Sub CreateSRP Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore") sDesc = "" sDesc = InputBox ("Enter a Restore Point description.", "Create System Restore Point","") If Trim(sDesc) <> "" Then sOut = SRP.createrestorepoint (sDesc, 0, 100) If sOut <> 0 Then WScript.echo "Error " & sOut & _ ": Unable to create System Restore Point." End If End If End Sub 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 7") Then GetOS = "Windows 7" End If Next End Function[/quote]

:)

 

creating a restore point

Hi Anthony,

We understand that you're having an issue with creating a restore point. For us to further assist you, we'd like to gather additional information.

• Have you tried creating system restore point manually?
• Have you tried any troubleshooting steps before posting this concern? If yes, what are those?

If you haven't created a system restore point manually, you can refer to the article below and follow the instructions given. Disable your antivirus or security software and then try to create a system restore point manually.

Create a system restore point

Looking forward to your response.

 

Win 10 Anniversary Restore Point Puzzle

I believe in restore points. They have saved my hash on several occasions.

I believe in them so much that I run a script every day to create one.

This script relies on what appears to be a VBS function "createrestorepoint" applied to a VBS object of type "winmgmts:\\.\root\default:Systemrestore".

This worked fine before the Anniversary edition was installed over the prior Win 10.

The problem is this: when invoked, it runs all right, and takes some time (as it should), and the function returns a "success" flag which produces a very nice MsgBox reporting success, but the System Restore button on the System Properties System Protection
tab does not show the restore point as existing.

When I create a restore point using the Create button on the System Properties System Protection tab to create a restore point, System Restore /does/ list the restore point.

Note that System Restore lists the restore points available when you select the "Choose a different restore point" and then select "Next".

Using the Configure button on the System Properties System Protection tab, shows this values for "Current Usage":

2.06 before any attempt

2.12 after the /manual/ attempt

2.19 after the /scripted/ attempt -- which followed the manual attempt immediately

So I think what is happening is that the script is, indeed, creating a System Restore point, but System Restore cannot see it. Of course, I am simply describing what I am looking at, and what is really happening could be quite different.

Indeed, the Current Usage is showing 2.32, but I have made no further attempts and no additional System Restore points are listed. So something else is also affecting this value.

My question, of course, is: how do I get System Restore to recognize the script-created restore points?

 

Create System Restore Point shortcut in Windows 10  


teckneeculler,

You could use the .vbs file from the download in step 3 on the first page here with a method in the tutorial below instead to do so. *Smile

System Restore Point : Create at System Startup - Windows 7 Help Forums