' Nettoyage de la Restauration du système. ret = MsgBox("Supprimer tous les points de restauration et remettre en place les paramètres par défaut ?",1,"Nettoyage de la Restauration du système") If ret=1 then Drive = "" ' pour tous les disque' Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore") ret=obj.Disable(Drive) Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore") ret=obj.Enable(Drive) ret=obj.Enable(Drive) Set obj = Nothing end if