Handy tool for Windows 7!

[Nocandu]

Hi

I found this tool a few days ago and I think it is very handy in Windows 7, where creating a restore point is hidden away behind a bunch of windows and clicks.

Just make a shortcut to this app on your desktop or task bar, that opens a window allowing you to name and create a restore point in just a few seconds.

http://www.thewindowsclub.com/create-a-system-restore-point-in-1-click-with-quick-restore-maker

I could never remember how to get to the Restore Point Creation tool when I wanted to create one. I'm 71! LOL
This helps a lot.

Mike

 

[GrimR]

Thanks again, this was posted on the 7th April

http://www.tek-tips.com/viewthread.cfm?qid=1598227&page=2

You could also just schedule it or, you could also use a script. Copy and paste to notepad and save as .vbs

'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'Script to create a System Restore point in Windows 7 | Vista | XP
'May 10 2008 - Revised on Jan 10, 2009
'© 2008 Ramesh Srinivasan.

http://www.winhelponline.com

'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
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", """" & _
WScript.ScriptFullName & """" & " uac","", "runas", 1
Else
CreateSRP
End If
End If


Sub CreateSRP
Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
sDesc = "Manual Restore Point"
sDesc = InputBox ("Enter a description.", "System Restore script : winhelponline.com","Manual Restore Point")
If Trim(sDesc) <> "" Then
sOut = SRP.createrestorepoint (sDesc, 0, 100)
If sOut <> 0 Then
WScript.echo "Error " & sOut & _
": Unable to create 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"
ElseIf instr(objOS.Caption, "Vista") Then
GetOS = "Windows Vista"
elseIf instr(objOS.Caption, "Windows XP") Then
GetOS = "Windows XP"
End If
Next
End Function



MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP