|
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í.
Trackback(0)
 |
TrackBack URI para esta entrada
RSS feed Comments
No tengo mucha idea de scripts asà que tengo varias dudas.
Con qué programa lo edito ?
Lo podrÃa utilizar para una tarea automatizada y generar un punto de restauración cuando se haya instalado un programa nuevo ?
PodrÃa hacerme un bat (en el supuesto de que fuera necesario..) para crear un punto de restauración cómodamente antes de instalar un nuevo programa en el ordenador ?
Gracias