device_driver_install = 10
begin_system_change = 100
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\default")
objitem = objwmiservice~get("SystemRestore")
errresults = objitem~createrestorepoint("Scripted restore", device_driver_install, begin_system_change) |