Puoi aprire il blocco note o un software simile con le stesse funzionalità, copia/incolla quanto compreso fra le linee tratteggiate qui sotto e salvalo come "tutti i file" con estensione *.vbs.
Lanciando questo script si formerà in automatico un nuovo punto di rirpristino.
---------------------------------------------------------------------------------------
If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " avvia", , "runas", 1
Else
GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint "Punto di ripristino istantaneo", 0, 100
End If
-------------------------------------------------------------------------------------------