Raccourci Créer un point de restauration (Script)

[chantal11]

Bonjour,

Pour créer un point de restauration, il faut accéder à l'onglet Protection Système par Démarrer\Panneau de configuration\Système et sécurité\Système, puis cliquer sur le lien Protection du Système dans le volet de gauche et enfin cliquer sur bouton Créer.

Voici un raccourci (Script) qui permettra directement depuis le Bureau de lancer la création d'un point de restauration.

Raccourci Créer un point de restauration (Script)

@+

PS : si Alain veut l'améliorer, il n'y a pas de souci

[nardino]

Bonjour
Il existe une possibilité par les Outils de CCleaner également.
@+

[chantal11]

Bonjour,

Il existe une possibilité par les Outils de CCleaner également.

Ce n'est plus un accès direct et instantané ....... mais de toutes les façons, je n'ai pas trouvé cette possibilité dans CCleaner (j'ai pourtant la dernière version)
Elle est où ?

@+

[breizhspotlight]

salut !

la fonction Restauration du système das ccleaner permet uniquement de supprimer des points de restauration...

@+

[solventAbuse]

Bonjour à tous, je viens de tester ce script, il est vraiment excellent et permet de gagner du temps.

Merci à son créateur.

Je voulais tenter de planifier l'exécution de ce script de façon quotidienne, mais comme il lance une fenêtre de dialogue qui demande un nom au point de restauration, je bloque.

Vous n'auriez pas une idée ? (automatiser la création du nom par exemple ?)

Merci !

[spiralien]

Bonjour,
Pour empêcher la demande de nom de point de restauration à créer et lui attribuer un nom automatiquement, tu peux :
- Ouvrir le fichier vbs avec Notepad
- Remplacer les lignes

Code : Tout sélectionner

	GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint InputBox("Entrer une description pour le point de restauration:","Create Restore Point - Forum-Seven.com"), 0, 100
       Msgbox("Point de restauration créé!")

[/color]

par

Code : Tout sélectionner

	NomPtRestauration="Point de restauration au "day(now) &"-" &month(now) &"-" &year(now)
	GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint NomPtRestauration, 0, 100

[/color]
Ainsi le point de restauration créé sera nommé automatiquement "Point de restauration au "date du jour
Exemple :Point de restauration au 08-02-2011

[Alex75011]

Et une fois crée voilà le raccourcie pour restaurer d'un clic:
%systemroot%\system32\rstrui.exe

[solventAbuse]

Hello, merci pour vos réponses, j'ai fait la modif du script mais en le lançant pour le tester, j'ai cette erreur:

---------------------------
Windows Script Host
---------------------------
Script : C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Créer Point de Restauration.vbs
Ligne : 5
Caract. : 47
Erreur : Fin d'instruction attendue
Code : 800A0401
Source : Erreur de compilation Microsoft VBScript

Pour info, le script est maintenant comme ceci:

Code : Tout sélectionner

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
	NomPtRestauration="Point de restauration au "day(now) &"-" &month(now) &"-" &year(now)
   	GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint NomPtRestauration, 0, 100
End If

(j'aurais du plus bosser mes cours de programmation ^^)




-edit- Yeah, j'ai trouvé l'erreur, tu as zappé le & avant day, maintenant ça marche...

(moi, un débuggeur, j'aurais pas cru )

Du coup, le code exact (pour les prochains):

Code : Tout sélectionner

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
	NomPtRestauration="Point de restauration au "&day(now) &"-" &month(now) &"-" &year(now)
   	GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint NomPtRestauration, 0, 100
End If

Merci encore, il est génial ce script !

[spiralien]

Merci pour la correction. Effectivement, j'ai zappé le &

Comme quoi, poster à 07:12, c'est un peut trop tôt pour mon petit cerveau.

[McKOK2A]

Slt All , un petit souci , j'ai il me semble , suivi la procédure à la lettre , pourtant quand je "double" clic sur le dit raccourci (le simple clic ne déclenche rien ) c'est le fichier vbs qui s'affiche avec notepad ???
C'est ou que j'ai glissé ???
Puis je revenir en arrière ???
C'est vrai que depuis seven , il y a beaucoup moins de points de restauration a disposition comparé à XP