This script will make a Manual Restore Point. (VBScript)
| 'Manual Restore Point for Vista If WScript.Arguments.length =0 Then Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", """" & _ WScript.ScriptFullName & """" & " uac","", "runas", 1 Else Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore") sDesc = "Manual Restore Point" sDesc = InputBox ("Enter a Description or Title and Click OK." & vbCr &_ "This script will take about 10 seconds to create a Restore Point.", "Paul's XP and Vista Tweaks","New Manual Restore Point") If Trim(sDesc) <> "" Then sOut = SRP.createrestorepoint (sDesc, 0, 100) MsgBox "New Restore Point successfully created at" & " " & Date & " " & Time & vbCr & vbCr &_ "This script was downloaded from www.paulsxp.com." ,64, "Done" If sOut <> 0 Then MsgBox "Restore Point creation Failed!" End If End If End If |