WP = "Von " & WScript.ScriptName & " erstellter Wiederherstellungspunkt" GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint WP, 0, 100