Jak automaticky vytvořit bod obnovení systému při prvním spuštění v daný den?
Úvod
Pomocí nástroje Windows Management Instrumentation můžete spravovat obnovení systému. užitečná efektivně. Tento článek vysvětlí, jak automaticky vytvořit a. Bod obnovení systému při prvním spuštění v daný den.
Pomocí tohoto skriptu denně vytvořte bod obnovení
Níže uvedený skript zkontroluje, zda existují nějaké body obnovení systému. již vytvořené pro aktuální den. Pokud neexistuje žádný bod obnovení systému pro. aktuální den skript vytvoří bod obnovení systému.
Chcete-li vytvořit bod obnovení během prvního spuštění dne, zkopírujte následující řádky do dokumentu programu Poznámkový blok a uložte jej jako soubor. s příponou .VBS (CreateRP.VBS). Potom místo. skript k Spuštění složku, aby se spustil během přihlášení.
' Vytvoří bod SR během prvního spuštění dne
“ 18. prosince 2005
' Pro Windows XP
2005 Ramesh Srinivasan
' Webová stránka: https://www.winhelponline.com/xp
Možnost Explicitní
Dim SRP, CSRP, objWMI, clsPoint
Ztlumit RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Nastavit SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Set dtmInstallDate = CreateObject("WbemScripting. SWbemDateTime")
Nastavte objWMI = getobject( _
"winmgmts:\\.\root\default").InstancesOf ("systemrestore")
Pro každý clsPoint v objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Měsíc (RPDate) & "/" & Den (RPDate) & "/" & Rok (RPDate)
D2 = měsíc (datum) & "/" & Den (datum) a „/“ a rok (datum)
Pokud D1 = D2, pak DMatch = 1
další
Funkce getmytime (wmitime)
dtmInstallDate. Hodnota = wmitime
getmytime = dtmInstallDate. GetVarDate
konec funkce
Pokud DMatch = 0 Pak
CSRP = SRP.createrestorepoint ("denní bod obnovení", 0, 100)
End If