Ten prosty skrypt VBScript zawiera listę wszystkich punktów przywracania systemu dostępnych na komputerze wraz z opisem i tworzeniem. czas i numer kolejny.
Aby uruchomić skrypt, skopiuj następujące wiersze do dokumentu Notatnika i zapisz jako plik. z rozszerzeniem .VBS (użyj podwójnych cudzysłowów) i kliknij dwukrotnie plik.
' Drukuje listę przywracania systemu. wskazuje na plik tekstowy
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Ostatnia aktualizacja: 20 sierpnia 2005 r.
' Prawidłowo formatuje datę / godzinę
'
Opcja Wyraźna
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Lista punktów przywracania systemu znalezionych na tym komputerze"
Ustaw powłokę = CreateObject("Wscript. Muszla")
Ustaw fso = Wscript. CreateObject("Skrypty. Obiekt systemu plików")
fName = Powłoka. Foldery specjalne("Pulpit")
fName = fName & "\ListSR.txt"
zbiór b = fso. CreateTextFile (fName, true)
b. Zapis fLinia
b.writeline ciąg (52,"-")
b.wpisz puste linie 1
strKomputer="."
Ustaw dtmInstallDate = CreateObject( _
„WbemScripting. SWbemDataCzas")
Ustaw objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Ustaw objOS = objWMI.ExecQuery( _
"Wybierz * z Win32_OperatingSystem")
Ustaw objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
Dla każdego punktu cls w objWMI
b.writeline "Czas tworzenia = " i getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Numer sekwencyjny = " & clsPoint.sequencenumber
b.wpisz puste linie 1
Następny
funkcja getmytime (wmitime)
dtmInstallDate. Wartość = wmitime
getmytime = dtmInstallDate. GetVarDate
funkcja zakończenia
b.zamknij
Muszla. Uruchom "notepad.exe " i fName, 1,True
Ustaw fso = Nic
ustaw powłokę = Nic