'Manual Restore Point for Vista

If WScript.Arguments.length = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1
Else

Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
sTitle = "Manual Restore Point"
sTitle = 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(sTitle) <> "" Then
sOutput = SRP.createrestorepoint (sTitle, 0, 100)

MsgBox "New Restore Point successfully created on"  & "  " &  Date & "  at  " & Time  & vbCr & vbCr &  "This script was downloaded from www.paulsxp.com.", 64, "Done"

If sOutput <> 0 Then

MsgBox "Restore Point creation Failed!"

End If
End If
End If