Crear punto de restauracion instantáneo

Hola Ikki, me da esta pantalla de error
"Ikki Mitsui" escribió en el mensaje
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

Hola Ikki, me da esta pantalla de error
"Ikki Mitsui" escribió en el mensaje
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

Hola Ikki, me da esta pantalla de error
"Ikki Mitsui" escribió en el mensaje
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

gracias
esto funcionaría en un w2000 pro ??