Imprimir
Categoría: Scripting

 

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í.

 

Visto: 23213