Thanks to a great programmer and also a great Moderator (thanks Brink) I have a little script that when run will force a new System Restore point to be created.
On a new install, if SR is not turned ON, I will turn it on. Then I install that little script in my "Startup" folder, so it runs ever time I boot up my PC.
My PC boots up in about ten seconds, so the SR script really doesn't slow it down, much.
And if in my fumbling around, I screw up my desktop or something, a quick System Restore will fix it. OH, I also keep a shortcut to System Restore on my Desktop, with Shortcuts to my other valuable softwares. OH, by the way, that shortcut is:
C:\Windows\System32\rstrui.exe
And, the script I'm using to create a new SR restore point is:
' Created by: Shawn Brink
'
Ten Forums - Windows 10 Help and Support Forum
' Tutorial:
Create System Restore Point shortcut in Windows 10
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 11") Then
GetOS = "Windows 11"
End If
Next
End Function
If GetOS = "Windows 11" 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
