Dieses einfache VBScript listet alle auf Ihrem Computer verfügbaren Systemwiederherstellungspunkte mit der Beschreibung, Erstellung auf. Uhrzeit und die Sequenznummer.
Um das Skript auszuführen, kopieren Sie die folgenden Zeilen in ein Notepad-Dokument und speichern Sie sie als Datei. mit der Erweiterung .VBS (verwenden Sie doppelte Anführungszeichen) und doppelklicken Sie auf die Datei.
' Druckt die Liste der Systemwiederherstellung. verweist auf eine Textdatei
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Zuletzt aktualisiert am: 20. August 2005
' Formatiert Datum / Uhrzeit richtig
'
Option explizit
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Liste der auf diesem Computer gefundenen Systemwiederherstellungspunkte"
Shell setzen = CreateObject("Wscript. Hülse")
Setze fso = Wscript. CreateObject("Scripting. FilesystemObject")
fName = Shell. SpecialFolders("Desktop")
fName = fName & "\ListSR.txt"
setze b = fso. CreateTextFile (fName, true)
B. Writeline fLine
b.writeline-String (52,"-")
b.blanklines schreiben 1
strComputer="."
Setze dtmInstallDate = CreateObject(_
"WbemScripting. SWbemDateTime")
Set objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set objOS = objWMI.ExecQuery( _
"Wählen Sie * aus Win32_OperatingSystem")
Set objWMI = getobject(_
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
Für jeden clsPoint in objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Sequence Number= " & clsPoint.sequencenumber
b.blanklines schreiben 1
Nächste
Funktion getmytime (wmitime)
dtmInstallDate. Wert = wmittime
getmytime = dtmInstallDate. GetVarDate
Endfunktion
b.schließen
Hülse. Führen Sie "notepad.exe " & fName, 1,True aus
Setze fso = Nichts
set shell = Nichts