'This script creates a System Restore Point for Windows XP.
rp = "Manual Restore Point by " & WScript.ScriptName
GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint rp, 0, 100'