Este VBScript simple enumera todos los puntos de restauración del sistema disponibles en su computadora, con la Descripción, Creación. tiempo y el número de secuencia.
Para ejecutar el script, copie las siguientes líneas en un documento del Bloc de notas y guárdelo como un archivo. con la extensión .VBS (use comillas dobles) y haga doble clic en el archivo.
Imprime la lista de Restaurar sistema. apunta a un archivo de texto
2005 Ramesh Srinivasan - https://www.winhelponline.com/xp
Última actualización: 20 de agosto de 2005
'Formatea la fecha / hora correctamente
'
Opción explícita
Dim fso, b, objWMI, clsPoint, strComputer, shell
Dim fLine, dtmInstallDate, objOS, fName
fLine = "Lista de puntos de restauración del sistema encontrados en esta computadora"
Establecer shell = CreateObject ("Wscript. Cáscara")
Establezca fso = Wscript. CreateObject ("Scripting. FilesystemObject ")
fName = Shell. SpecialFolders ("Escritorio")
fName = fName & "\ ListSR.txt"
establecer b = fso. CreateTextFile (fName, verdadero)
B. Línea de escritura fLine
b. cadena de línea de escritura (52, "-")
b.writeblanklines 1
strComputer = "."
Establecer dtmInstallDate = CreateObject (_
"WbemScripting. SWbemDateTime ")
Establecer objWMI = GetObject (_
"winmgmts: \\" & strComputer & "\ root \ cimv2")
Establecer objOS = objWMI.ExecQuery (_
"Seleccionar * de Win32_OperatingSystem")
Establecer objWMI = getobject (_
"winmgmts: \\" & strComputer & "\ root \ default"). InstancesOf ("systemrestore")
Para cada clsPoint en objWMI
b.writeline "Creation Time =" & getmytime (clsPoint.creationtime)
b.writeline "Description =" & clsPoint.description
b.writeline "Sequence Number =" & clsPoint.sequencenumber
b.writeblanklines 1
próximo
función getmytime (wmitime)
dtmInstallDate. Valor = wmitime
getmytime = dtmInstallDate. GetVarDate
función final
b.close
Cáscara. Ejecute "notepad.exe" & fName, 1, True
Establecer fso = Nada
set shell = Nada