Hvordan oppretter jeg et systemgjenopprettingspunkt automatisk ved dagens første oppstart?
Introduksjon
Ved å bruke Windows Management Instrumentation kan du administrere systemgjenoppretting. nytte effektivt. Denne artikkelen vil forklare hvordan du automatisk oppretter en. Systemgjenopprettingspunkt ved dagens første oppstart.
Opprett et gjenopprettingspunkt daglig ved å bruke dette skriptet
Skriptet nedenfor vil sjekke om det er noen systemgjenopprettingspunkter. allerede opprettet for gjeldende dag. Hvis det ikke finnes noe systemgjenopprettingspunkt for. gjeldende dag, oppretter skriptet et systemgjenopprettingspunkt.
For å opprette et gjenopprettingspunkt under dagens første oppstart, kopier følgende linjer til et Notisblokk-dokument og lagre som en fil. med .VBS-utvidelse (CreateRP.VBS). Deretter, plasser. manuset til Oppstart mappen slik at den kjører under pålogging.
' Oppretter et SR-punkt under dagens første oppstart
18. desember 2005
' For Windows XP
' 2005 Ramesh Srinivasan
' Nettsted: https://www.winhelponline.com/xp
Alternativ eksplisitt
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Sett SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Sett dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Sett objWMI = getobjekt( _
"winmgmts:\\.\root\default").InstancesOf ("systemgjenoppretting")
For hvert clsPoint I objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Måned (RPDate) & "/" & Dag (RPDate) & "/" & år (RPDate)
D2 = måned (dato) & "/" & Dag (dato) & "/" & år (dato)
Hvis D1 = D2, så er DMatch = 1
Neste
Funksjon getmytime (wmitime)
dtmInstallDate. Verdi = wmitime
getmytime = dtmInstallDate. GetVarDate
sluttfunksjon
Hvis DMatch = 0 Da
CSRP = SRP.createrestorepoint ("Daglig gjenopprettingspunkt", 0, 100)
Slutt om