New
#11
..... OR from post #2 that does that.
System Restore Point Shortcut
Sorry Brink, completely missed that!
Just found this ..... shortcut made and a huge thankyou :)
Why not just use the dialog box built into Windows with a straight Shortcut?
Windows\System32\SystemPropertiesProtection.exe
I tried the above program, but clicking the permissions was more obtrusive and took longer than using this shortcut and clicking on the CREATE RESTORE POINT button.
Thinking someone else might prefer this route.
WW
I test a lot of software on my main PC and as often as not I want to get rid of what I'm testing.
Thank God and Microsoft for the System Restore function in Windows. And woe be to him/her that turns System Restore OFF.
Hardly a week goes by, that I don't have to call on System Restore to get rid of some POS.
Going all the way back to the early days of Windows XP, I've relied heavily on System Restore to get me out of trouble. To do this simple chore of making a new restore point I've always called on a simple script.
For each of the OS's, XP, Win-7 and Win-10 I needed a different script. I sought help on this forum and I found it (thank you Sean) .
To make sure that I have a fresh Restore Point when I need it, I put the little "Create Restore Point" script in my Startup folder, so I get a new restore point created every time I boot up my PC.
I know this script has been posted before, but I doubt that it will hurt anything to post it again.
' Created by: Shawn Brink
' Windows 7 Help Forums
' Tutorial: System Restore Point Shortcut - Windows 7 Help Forums
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
GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint "Instant Restore Point", 0, 100
End Sub
Just copy and paste the blue lines above, into Notepad and save with the name "Instant Restore Point.vbs" and save it to your desktop or your Startup Folder.
Cheers Mates!