Crear puntos de restauración con un doble click

Hola visitantes...
Como no todo es programación, aquí les dejo un apartado para la secciuón de informática aplicada.

El procedimiento es facil.

Desarrollo:

1. Creamos un bloq de notas en cualquien lugar. Puede ser en Mis Documentos en el escritorio. Eso es lo de menos.

2. Abierto el bloq, escribimos este código:
set sr = getobject("winmgmts:\\.\root\d efault:Systemrestore ")

msg = "Se ha creado un nuevo punto de restauración." & vbCR
msg = msg & "Su nombre es: " & vbCR
msg = msg & "Punto de restauración automático " & Date & " " & Time

If (sr.createrestorepoint("Punto de restauración automático", 0, 100)) = 0 Then
MsgBox msg
end if

3. Después guardamos con un nombre adecuado.

4. Creado el bloq de notas, ahora le cambiamos la extensión de txt a vbs(visual basic scrip).

Y listo, tenemos nuestro scrip listo.

Debe dar este mensaje:



Comproband
o...












Espero le sea de muy buena utilidad.