Volume Shadow Copy

' Created by: Shawn Brink
' http://www.sevenforums.com
' Tutorial: http://www.sevenforums.com/tutorials/494-system-restore-point-shortcut.html


If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint "Instant Restore Point", 0, 100
End If


Download for window xp
http://download.microsoft.com/download/9/4/c/94c588cf-8176-4bdb-9d55-2597c76043c6/setup.exe