Script 1 :

CONST DEVICE_DRIVER_INSTALL = 10

CONST BEGIN_SYSTEM_CHANGE = 100

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")

Set objItem = objWMIService.Get("SystemRestore")

errResults = objItem.CreateRestorePoint _

("Scripted restore", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)

Script testé sous Windows 7 : OK

Script 2 :

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 InputBox(« Entrer une description pour le point de restauration: », »Create Restore Point – Quick-Tutoriel.com »), 0, 100

Msgbox(« Point de restauration créé! »)

End If

Vous remarquerez qu’il y a une ligne shellexecute avec un « runas », le script sera lancé en tant qu’administrateur

afin de créer le point de restauration.

Une InputBox vous permet de donner un nom au point de restauration.

De plus j’ai rajouté au script une msgbox à la fin de la sauvegarde pour vous avertir de sa création,  qui peut prendre

une bonne 20 de secondes sous Seven.