'Auto Restore Point for Vista

Message = "This script will Create an Auto Restore Point." & vbCr _
 & "The Restore Point will take about 10 seconds to create." & vbCr & vbCr _
 & "Would you like to continue?"

M = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks")
If M = 6 Then 

Set WshShell = CreateObject("WScript.Shell")
Set srp = getobject("winmgmts:\\.\root\default:Systemrestore")
Msg = "New Restore Point successfully created." & vbCr _
& "It is listed as: " _
& "Automatic Restore Point "  & vbCr &  Date & "  at  " & Time _
& vbCr & vbCr & "This script was downloaded from www.paulsxp.com"

If (srp.createrestorepoint("Automatic Restore Point", 0, 100)) = 0 Then
    MsgBox Msg, 64, "Done"
Else
    MsgBox "Restore Point creation Failed!"
End If
End If

Set srp = Nothing