Questo semplice VBScript elenca tutti i punti di Ripristino configurazione di sistema disponibili nel computer, con la Descrizione, Creazione. l'ora e il numero di sequenza.
Per eseguire lo script, copia le seguenti righe in un documento del Blocco note e salva come file. con estensione .VBS (usare le virgolette) e fare doppio clic sul file.
' Stampa l'elenco di Ripristino configurazione di sistema. punta a un file di testo
' 2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
' Ultimo aggiornamento: 20 agosto 2005
' Formatta la data/ora correttamente
'
Opzione esplicita
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Elenco dei punti di ripristino del sistema trovati in questo computer"
Set shell = CreateObject("Wscript. Conchiglia")
Imposta fso = Wscript. CreateObject("Script. Oggetto Filesystem")
fName = Shell. Cartelle speciali("Desktop")
fName = fName & "\ListSR.txt"
impostare b = fso. CreateTextFile (fName, true)
B. Scrivi riga fLine
b.stringa writeline (52,"-")
b.scrivi righe vuote 1
strComputer="."
Imposta dtmInstallDate = CreateObject( _
"WbemScripting. SWbemDateTime")
Imposta objWMI = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Imposta objOS = objWMI.ExecQuery( _
"Seleziona * da Win32_OperatingSystem")
Imposta objWMI = getobject( _
"winmgmts:\\" & strComputer & "\root\default").InstancesOf ("systemrestore")
Per ogni clsPoint in objWMI
b.writeline "Creation Time= " & getmytime (clsPoint.creationtime)
b.writeline "Description= " & clsPoint.description
b.writeline "Numero di sequenza= " & clsPoint.sequencenumber
b.scrivi righe vuote 1
Prossimo
funzione getmytime (wmitime)
dtmInstallDate. Valore = wmitime
getmytime = dtmInstallDate. OttieniVarDate
funzione di fine
b.chiudi
Conchiglia. Esegui "notepad.exe " & fName, 1, True
Imposta fso = Niente
set shell = niente