Jak automatycznie utworzyć punkt przywracania systemu przy pierwszym uruchomieniu w ciągu dnia?
Wstęp
Korzystając z Instrumentacji zarządzania Windows, możesz zarządzać przywracaniem systemu. użyteczność skutecznie. W tym artykule wyjaśnimy, jak automatycznie utworzyć. Punkt przywracania systemu przy pierwszym uruchomieniu danego dnia.
Codziennie twórz punkt przywracania za pomocą tego skryptu
Poniższy skrypt sprawdzi, czy istnieją punkty przywracania systemu. już utworzone na bieżący dzień. Jeśli nie istnieje punkt przywracania systemu dla. w bieżącym dniu skrypt tworzy punkt przywracania systemu.
Aby utworzyć punkt przywracania podczas pierwszego uruchomienia w ciągu dnia, skopiuj następujące wiersze do dokumentu Notatnika i zapisz jako plik. z rozszerzeniem .VBS (CreateRP.VBS). Następnie umieść. scenariusz do Uruchomienie tak, aby działał podczas logowania.
' Tworzy punkt SR podczas pierwszego uruchomienia w ciągu dnia
18 grudnia 2005 r
'Dla Windows XP
' 2005 Ramesh Srinivasan
' Stronie internetowej: https://www.winhelponline.com/xp
Opcja Wyraźna
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DDopasuj = 0
Ustaw SRP = getobject("winmgmts:\\.\root\default: Systemrestore")
Ustaw dtmInstallDate = CreateObject("WbemScripting. SWbemDataCzas")
Ustaw objWMI = pobierzobiekt( _
"winmgmts:\\.\root\default").InstancesOf ("przywracanie systemu")
Dla każdego punktu cls w objWMI
RPDate = getmytime (clsPoint.creationtime)
D1 = Miesiąc (RPDate) & "/" & Dzień (RPDate) & "/" & Rok (RPDate)
D2 = Miesiąc (data) & "/" & Dzień (data) i „/” i rok (data)
Jeśli D1 = D2 to DDopasuj = 1
Następny
Funkcja getmytime (wmitime)
dtmInstallDate. Wartość = wmitime
getmytime = dtmInstallDate. GetVarDate
funkcja zakończenia
Jeśli DMatch = 0 Wtedy
CSRP = SRP.createrestorepoint („Codzienny punkt przywracania”, 0, 100)
Zakończ, jeśli