Hoe maak je automatisch een systeemherstelpunt aan bij de eerste keer opstarten van de dag?
Invoering
Met behulp van Windows Management Instrumentation kunt u Systeemherstel beheren. nut effectief. In dit artikel wordt uitgelegd hoe u automatisch een. Systeemherstelpunt bij de eerste keer opstarten van de dag.
Maak dagelijks een herstelpunt met dit script
Het onderstaande script controleert of er systeemherstelpunten zijn. al gemaakt voor de huidige dag. Als er geen systeemherstelpunt bestaat voor de. op de huidige dag maakt het script een systeemherstelpunt aan.
Om een herstelpunt te maken tijdens de eerste keer opstarten van de dag, kopieert u de volgende regels naar een Kladblok-document en slaat u het op als een bestand. met de extensie .VBS (CreateRP.VBS). Plaats dan. het script naar de Beginnen map zodat deze wordt uitgevoerd tijdens het aanmelden.
' Creëert een SR-punt tijdens de eerste opstart van de dag
18 december 2005
' Voor Windows XP
2005 Ramesh Srinivasan
' Website: https://www.winhelponline.com/xp
Optie expliciet
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Stel SRP = getobject ("winmgmts:\\.\root\default: Systeemherstel") in
Stel dtmInstallDate = CreateObject("WbemScripting. SWbemDatumTijd")
Stel objWMI =. in getobject( _
"winmgmts:\\.\root\default").InstancesOf ("systeemherstel")
Voor elk clsPoint in objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Maand (RPDate) & "/" & Dag (RPDate) & "/" & Jaar (RPDate)
D2 = maand (datum) & "/" & Dag (Datum) & "/" & Jaar (Datum)
Als D1 = D2 Dan DMatch = 1
Volgende
Functie getmytime (wmitime)
dtmInstallDate. Waarde = wmitime
getmytime = dtmInstallDate. GetVarDate
einde Functie
Als DMatch = 0 Dan
CSRP = SRP.createrestorepoint ("Dagelijks herstelpunt", 0, 100)
Stop als