Crear punto de restauracion instantáneo

Gracias Antonio, funciona perfecto, al menos la creacion del punto, en otro
momento probare a restaurar.

Cordialmente,

Alejandro Curquejo
Microsoft MVP Windows

Microsoft TechNet
Recursos, Soporte y Comunidad TI
http://www.microsoft.com/spain/tech...efault.asp

"Antonio Amengual[MSMVP]" wrote in message
news:%
Esta opción nos permitirá crear un punto de restauración a la fecha y hora
del dia de ejecucion de este script
con el nombre de my restore point

apara ello basta abrir notepad y dentro de él teclear estas lineas (es mas
rapido copiar y pegar

Set IRP = getobject("winmgmts:\\.oot\default:Systemrestore")
MYRP = IRP.createrestorepoint ("My Restore Point", 0, 100)

salvar el archivo con el nombrecreapuntores.vbs
por omisión se guarda en mis documentos

y en el escritorio bastara crear un acceso directo
a este archivo
la ejecución es instantánea y encuestion de 2 a 5 segundos se habra creado
un nuevo punto de restauracoón
sin necesidad de ir navegando por menús para crear el punto

para comprobar si el punto ha sido creado basta ir a heramientas del sistema
y ver que alli aparece my restore pont con fech a y hora del dia de creación
del punto (seria hoy si lo probais ahora

Buen provecho



Bienvenidos al sitio de MVP de Microsoft

http://mvp.support.microsoft.com/

Recuerda: Una Consulta, Un Foro:
news:microsoft.public.es.outlookexpress
news:microsoft.public.es.windowsxp
news:microsoft.public.es.windowsxp.aplicaciones
news:microsoft.public.es.windowsxp.hardware
news:microsoft.public.es.windowsxp.instalacion
news:microsoft.public.es.windowsxp.seguridad

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no rights.
You assume all risk for your use.


XP Pro-2600-limpia+SP2

por favor
respuestas al grupo; asi nos beneficiamos todos
no se responde personalmente

saludos

Antonio
ms mvp windowsxp shell user

"Antonio Amengual[MSMVP]" wrote in
news:#:

Esta opción nos permitirá crear un punto de restauración a la fecha y
hora del dia de ejecucion de este script con el nombre de my restore
point

apara ello basta abrir notepad y dentro de él teclear estas lineas (es
mas rapido copiar y pegar

Set IRP = getobject("winmgmts:\\.oot\default:Systemrestore")
MYRP = IRP.createrestorepoint ("My Restore Point", 0, 100)

salvar el archivo con el nombrecreapuntores.vbs
por omisión se guarda en mis documentos

y en el escritorio bastara crear un acceso directo
a este archivo
la ejecución es instantánea y encuestion de 2 a 5 segundos se habra
creado un nuevo punto de restauracoón sin necesidad de ir navegando
por menús para crear el punto

para comprobar si el punto ha sido creado basta ir a heramientas del
sistema y ver que alli aparece my restore pont con fech a y hora del
dia de creación del punto (seria hoy si lo probais ahora

Buen provecho

gracias

esto funcionaría en un w2000 pro ??
ya se que no tiene puntos de restauración pero tiene la opcion de
arrancarlo con la ultima configuración buena conocida.

Muy groso el tip, Antonio. Me permití mejorarlo un poco, agregándole la
opción de especificar el nombre que queramos para el punto de restauración.
El código sería el siguiente (ojo que no sé si se aceptan todos los
caracteres para un nombre de pto. de restauración).



dim strNombre, strMsg
strNombre = InputBox("Ingrese el nombre del Punto de Restauración",
"Creación de Punto de Restauración Instantáneo", "Punto de Restauración
Instantáneo")
if strNombre<>"" Then
Set IRP = getobject("winmgmts:\\.oot\default:Systemrestore")
MYRP = IRP.createrestorepoint (strNombre, 0, 100)
strMsg = "El punto de restauración con el nombre '" & strNombre & "'
fue creado exitosamente."
else
strMsg = "No se puede crear un Punto de Restauración ya que no se ha
proporcionado ningún nombre."
end if

msgbox(strMsg)




Mitsui

AMD Athlon 3000+
Asus A7V333 R
Kingston 512 MB DDR 400
Asus GForce 6600 128 MB AGP
WinXP SP2 Limpio

Preguntas y comentarios al foro,
así nos beneficiamos todos.

"Antonio Amengual[MSMVP]" escribió en el
mensaje news:%
Esta opción nos permitirá crear un punto de restauración a la fecha y hora
del dia de ejecucion de este script
con el nombre de my restore point

apara ello basta abrir notepad y dentro de él teclear estas lineas (es mas
rapido copiar y pegar

Set IRP = getobject("winmgmts:\\.oot\default:Systemrestore")
MYRP = IRP.createrestorepoint ("My Restore Point", 0, 100)

salvar el archivo con el nombrecreapuntores.vbs
por omisión se guarda en mis documentos

y en el escritorio bastara crear un acceso directo
a este archivo
la ejecución es instantánea y encuestion de 2 a 5 segundos se habra creado
un nuevo punto de restauracoón
sin necesidad de ir navegando por menús para crear el punto

para comprobar si el punto ha sido creado basta ir a heramientas del sistema
y ver que alli aparece my restore pont con fech a y hora del dia de creación
del punto (seria hoy si lo probais ahora

Buen provecho



Bienvenidos al sitio de MVP de Microsoft

http://mvp.support.microsoft.com/

Recuerda: Una Consulta, Un Foro:
news:microsoft.public.es.outlookexpress
news:microsoft.public.es.windowsxp
news:microsoft.public.es.windowsxp.aplicaciones
news:microsoft.public.es.windowsxp.hardware
news:microsoft.public.es.windowsxp.instalacion
news:microsoft.public.es.windowsxp.seguridad

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no rights.
You assume all risk for your use.


XP Pro-2600-limpia+SP2

por favor
respuestas al grupo; asi nos beneficiamos todos
no se responde personalmente

saludos

Antonio
ms mvp windowsxp shell user

Gracias.

Cordialmente,

Alejandro Curquejo
Microsoft MVP Windows

Microsoft TechNet
Recursos, Soporte y Comunidad TI
http://www.microsoft.com/spain/tech...efault.asp

"Ikki Mitsui" wrote in message
news:%

Muy groso el tip, Antonio. Me permití mejorarlo un poco, agregándole la
opción de especificar el nombre que queramos para el punto de
restauración. El código sería el siguiente (ojo que no sé si se aceptan
todos los caracteres para un nombre de pto. de restauración).



dim strNombre, strMsg
strNombre = InputBox("Ingrese el nombre del Punto de Restauración",
"Creación de Punto de Restauración Instantáneo", "Punto de Restauración
Instantáneo")
if strNombre<>"" Then
Set IRP = getobject("winmgmts:\\.oot\default:Systemrestore")
MYRP = IRP.createrestorepoint (strNombre, 0, 100)
strMsg = "El punto de restauración con el nombre '" & strNombre & "'
fue creado exitosamente."
else
strMsg = "No se puede crear un Punto de Restauración ya que no se ha
proporcionado ningún nombre."
end if

msgbox(strMsg)




Mitsui

AMD Athlon 3000+
Asus A7V333 R
Kingston 512 MB DDR 400
Asus GForce 6600 128 MB AGP
WinXP SP2 Limpio

Preguntas y comentarios al foro,
así nos beneficiamos todos.

"Antonio Amengual[MSMVP]" escribió en el
mensaje news:%
Esta opción nos permitirá crear un punto de restauración a la fecha y hora
del dia de ejecucion de este script
con el nombre de my restore point

apara ello basta abrir notepad y dentro de él teclear estas lineas (es mas
rapido copiar y pegar

Set IRP = getobject("winmgmts:\\.oot\default:Systemrestore")
MYRP = IRP.createrestorepoint ("My Restore Point", 0, 100)

salvar el archivo con el nombrecreapuntores.vbs
por omisión se guarda en mis documentos

y en el escritorio bastara crear un acceso directo
a este archivo
la ejecución es instantánea y encuestion de 2 a 5 segundos se habra creado
un nuevo punto de restauracoón
sin necesidad de ir navegando por menús para crear el punto

para comprobar si el punto ha sido creado basta ir a heramientas del
sistema y ver que alli aparece my restore pont con fech a y hora del dia
de creación del punto (seria hoy si lo probais ahora

Buen provecho



Bienvenidos al sitio de MVP de Microsoft

http://mvp.support.microsoft.com/

Recuerda: Una Consulta, Un Foro:
news:microsoft.public.es.outlookexpress
news:microsoft.public.es.windowsxp
news:microsoft.public.es.windowsxp.aplicaciones
news:microsoft.public.es.windowsxp.hardware
news:microsoft.public.es.windowsxp.instalacion
news:microsoft.public.es.windowsxp.seguridad

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y
no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no
rights.
You assume all risk for your use.


XP Pro-2600-limpia+SP2

por favor
respuestas al grupo; asi nos beneficiamos todos
no se responde personalmente

saludos

Antonio
ms mvp windowsxp shell user

"Ikki Mitsui" wrote in
news:#:

Muy groso el tip, Antonio. Me permití mejorarlo un poco, agregándole
la opción de especificar el nombre que queramos para el punto de
restauración. El código sería el siguiente (ojo que no sé si se
aceptan todos los caracteres para un nombre de pto. de restauración).



dim strNombre, strMsg
strNombre = InputBox("Ingrese el nombre del Punto de Restauración",
"Creación de Punto de Restauración Instantáneo", "Punto de
Restauración Instantáneo")
if strNombre<>"" Then
Set IRP = getobject("winmgmts:\\.oot\default:Systemrestore")
MYRP = IRP.createrestorepoint (strNombre, 0, 100)
strMsg = "El punto de restauración con el nombre '" & strNombre &
"'
fue creado exitosamente."
else
strMsg = "No se puede crear un Punto de Restauración ya que no se
ha
proporcionado ningún nombre."
end if

msgbox(strMsg)

gracias
esto funcionaría en un w2000 pro ??