Como consultar los puntos de restauración mediante scripts
Valoración del Usuario:
/ 2
Con estos scripts podremos crear y consultar que puntos de restauración tenemos creados.
Con estos scripts podremos crear y consultar que puntos de restauración
tenemos creados
Para crear un punto de restauración:
if msgbox("Desea crear un punto de restauración?",vbyesno + vbquestion,"Restaurar el sistema")=vbyes then
set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
CSRP = SRP.createrestorepoint ("Peni", 0, 100)
msgbox "Punto de restauración creado",vbinformation,"Restaurar el sistema"
end if
Veréis que el punto de restauración se crea con el nombre de Peni, evidentemente ésto se puede cambiar por cualquier otro nombre ;-)
Para consultar los puntos de restauración:
Dim Fecha,Hora,Cad,crea
set SRP = getobject("winmgmts:\\.\root\default").InstancesOf("systemrestore")
for each Point in SRP
crea=point.creationtime
Hora=mid(crea,9,2) + 1 & ":" & mid(crea,11,2) & ":" & mid(crea,13,2)
Fecha=mid(crea,7,2) & "/" & mid(crea,5,2) & "/" & left(crea,4)
cad=cad & "Fecha :" & Fecha & " " & Hora & vbcrlf & "Nombre :" & point.description & vbcrlf & "Nº de secuencia :" & point.sequencenumber & vbcrlf & vbcrlf
next
If Cad="" then
msgbox "No hay puntos de restauración",vbexclamation,"Restaurar el sistema"
else
msgbox cad,vbinformation,"Restaurar el sistema"
end if
Antes de nada debo aclarar que estos script estan sacados de la Web de Microsoft, yo solo los he puesto algo más 'bonitos'.
Tenéis que crear un par de archivos con extensión vbs y pegar las líneas
correspondientes en cada uno de los archivos.
NOTA: el primer script puede bajarse cómodamente de aquí, y el segundo de aquí.