Comment créer automatiquement un point de restauration système lors du premier démarrage de la journée ?
introduction
À l'aide de Windows Management Instrumentation, vous pouvez gérer la restauration du système. utilitaire efficacement. Cet article explique comment créer automatiquement un fichier. Point de restauration du système lors du premier démarrage de la journée.
Créez un point de restauration quotidiennement à l'aide de ce script
Le script fourni ci-dessous vérifiera s'il existe des points de restauration du système. déjà créé pour la journée en cours. Si aucun point de restauration système n'existe pour le fichier. jour en cours, le script crée un point de restauration système.
Pour créer un point de restauration lors du premier démarrage de la journée, copiez les lignes suivantes dans un document Bloc-notes et enregistrez-les en tant que fichier. avec extension .VBS (CreateRP.VBS). Ensuite, placez. le script au Commencez dossier afin qu'il s'exécute lors de la connexion.
' Crée un point SR lors du premier démarrage de la journée
' 18 décembre 2005
' Pour Windows XP
' 2005 Ramesh Srinivasan
' Site Internet: https://www.winhelponline.com/xp
Option Explicite
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
Correspondance = 0
Définir SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Définissez dtmInstallDate = CreateObject("WbemScripting. SWbemDateHeure")
Définir objWMI = getobject( _
"winmgmts:\\.\root\default").InstancesOf ("systemrestore")
Pour chaque clsPoint dans objWMI
RPDate = getmytime (clsPoint.creationtime)
J1 = Mois (RPDate) & "/" & Jour (RPDate) & "/" & Année (RPDate)
J2 = Mois (Date) & "/" & Jour (Date) & "/" & Année (Date)
Si D1 = D2 Alors DMatch = 1
Suivant
Fonction getmytime (wmitime)
dtmInstallDate. Valeur = wmitime
getmytime = dtmInstallDate. ObtenirDateVar
fin Fonction
Si DMatch = 0 Alors
CSRP = SRP.createrestorepoint ("Point de restauration quotidien", 0, 100)
Fin si