DonationCoder.com Software > Finished Programs

SOLVED: Script to set a system restore point; win7

(1/1)

benhenry:
This is my first visit here... what a groovy place!

I got two vb scripts that set a system restore point in win7 (from a place called "lifehacker")

The first one sets the restore point with a label that is supplied from a message box:

If WScript.Arguments.Count = 0 Then
   Set objShell = CreateObject("Shell.Application")
   objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
   GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint InputBox("Enter a descriptive name for the restore point:","Create Restore Point - With Description"), 0, 100
End If

The second one sets the restore point with a preset label, in this case, "manual restore point":

If WScript.Arguments.Count = 0 Then
   Set objShell = CreateObject("Shell.Application")
   objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
   GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint "Manual Restore Point", 0, 100
End If

Is there a way to combine these two so that if I "cancel" the message box on the first one...
without typing a label; it will simply run the other one to create the restore point with the preset label?

Thanks if you can help.. Ben

MilesAhead:
This one looks like it has the bases covered:

http://www.winhelponline.com/blog/wp-content/uploads/createsrp.vbs

edit: btw if you want a different default string, just change "Manual Restore Point" to "my default string".  This way you can still back out by pressing Cancel.

benhenry:
Thank you! Works perfectly. I'm a single parent with teenagers.
System restore points are a necessity.

mouser:
I'm a single parent with teenagers.
System restore points are a necessity.
--- End quote ---

 ;D ;D ;D

setting up a good external backup system would probably be a good idea too.

parkint:
This one looks like it has the bases covered:

http://www.winhelponline.com/blog/wp-content/uploads/createsrp.vbs

-MilesAhead (July 14, 2010, 06:58 PM)
--- End quote ---
Wonderful goodness.

Navigation

[0] Message Index