Hur skapar man automatiskt en systemåterställningspunkt vid dagens första uppstart?
Introduktion
Med hjälp av Windows Management Instrumentation kan du hantera systemåterställningen. nytta effektivt. Den här artikeln kommer att förklara hur du automatiskt skapar en. Systemåterställningspunkt vid dagens första uppstart.
Skapa en återställningspunkt dagligen med det här skriptet
Skriptet nedan kommer att kontrollera om det finns några systemåterställningspunkter. redan skapat för den aktuella dagen. Om det inte finns någon systemåterställningspunkt för. nuvarande dag skapar skriptet en systemåterställningspunkt.
För att skapa en återställningspunkt under dagens första uppstart, kopiera följande rader till ett Anteckningar-dokument och spara som en fil. med .VBS-tillägget (CreateRP.VBS). Placera sedan. manuset till Börja mapp så att den körs under inloggning.
' Skapar en SR-punkt under dagens första uppstart
' 18 december 2005
' För Windows XP
' 2005 Ramesh Srinivasan
' Hemsida: https://www.winhelponline.com/xp
Alternativ Explicit
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Ställ in SRP = getobject("winmgmts:\\.\root\default: Systemåterställning")
Set dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Ställ in objWMI = getobject( _
"winmgmts:\\.\root\default").InstancesOf ("systemåterställning")
För varje clsPoint I objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Månad (RPDate) & "/" & Day (RPDate) & "/" & Year (RPDate)
D2 = Månad (datum) & "/" & Dag (datum) & "/" & år (datum)
Om D1 = D2 Då är DMatch = 1
Nästa
Funktion getmytime (wmitime)
dtmInstallDate. Värde = wmitime
getmytime = dtmInstallDate. GetVarDate
slutfunktion
Om DMatch = 0 Då
CSRP = SRP.createrestorepoint ("Daglig återställningspunkt", 0, 100)
Avsluta om