ilikefree_logo_small

>>>Back<<<

Windows Seven Or 8 Users


The Following Will Work With Windows XP,VISTA,7,or 8

Windows Seven By Default Only Lets You Restore From A System Created Restore Point.

Please Read This Instruction Section Fully Before Starting.

It Will Help If You Keep This Page Open While You Follow This Guide.


To Create A Manual Restore Point You Will Need To First Copy And Paste The File Marked Below Into Notepad


Name It, Create Restore Point.vbs
And Change .txt To All Files(*.*) Where It Says Save As Type Before Saving.


This Will Create A Visual Basic Script File (.vbs) ( one made here with shortcut for your desktop )


Put This .vbs File Into Your Programs Folder


Right Click The .vbs File And Hover Over Send To

Click Desktop (Create Shortcut)

Go To Your Desktop And Right Click The Shortcut

Click Properties,Click General.

Rename The Shortcut, Create Restore Point

Close The Properties Box.


Then Go To Computer>C:>Windows>System32

Look For rstrui.exe

Right Click It And Hover Over Send To

Click Desktop (Create Shortcut)

Go To Your Desktop And Right Click The Shortcut

Click Properties,Click General

Rename The Shortcut, System Restore.

You Should End Up With Two Shortcuts

One To Create A Restore Point

And One To Restore From A Restore Point

While You Are In The Properties Of Each You Can Also Change The Icons If You Wish.


Thanks Go To Shawn Brink For Writing The Script.


You Could Go To The Site Below And Follow Shawn's Excellent Tutorial Instead.

There He Has A .vbs File And Shortcut Made That You Can Download.

http://www.sevenforums.com/tutorials/494-system-restore-point-shortcut.html

Don't Forget To Thank Him


-------------Copy All Below This Line Into Notepad----------

' Created by: Shawn Brink
' http://www.sevenforums.com
' Tutorial: http://www.sevenforums.com/tutorials/494-system-restore-point-shortcut.html

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
Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
sDesc = "Manual Restore Point"
sDesc = InputBox ("Enter a restore point description.", "Create Manual System Restore Point","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."
else
MsgBox "The restore point was created successfully.", 0, "Create Manual System Restore Point"
End If
End If
End Sub