Ths script will make an Auto Restore point. (VBScript)
| 'Auto Restore Point for Windows XP Set WshShell = CreateObject("WScript.Shell") Message = "This script will Create an Auto Restore Point." & vbCr Message = Message & "The Restore Point will take about 10 seconds to create." & vbCr & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then Set sr = getobject("winmgmts:\\.\root\default:Systemrestore") phm = "New Restore Point successfully created." & vbCR phm = phm & "It is listed as: " phm = phm & "Automatic Restore Point " & vbCR & Date & " " & Time phm = phm & vbCr & vbCr & "This script was downloaded from www.paulsxp.com" If (sr.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then MsgBox phm Else MsgBox "Restore Point creation Failed!" End If End If Set sr = Nothing |