Create Restore Point?

[Brian Gregory [UK]]

How does one manually create a restore point in Windows 7?

 

[Big Steel]

How does one manually create a restore point in Windows 7?

<http://www.bing.com/search?q=create...q=crate+a+restore+point+windows+&sp=1&sc=3-30>

 

[Monty]

How does one manually create a restore point in Windows 7?

I see this question has been answered but in future you might try the
following procedure.

1. Left click the Start button.

2. In the Search box (the one that says "Search programs and files")
type your search argument. In this case enter restore point

3. If you see a topic which is close to what you want then left click
on it, e.g. "Create a restore point" and follow the instructions.

This is often much quicker than waiting for a response in Usenet.

Not trying to offend but maybe you weren't aware of this help function
in W7.

Cheers,

 

[Andy]

How does one manually create a restore point in Windows 7?

--

Brian Gregory. (In the UK)
(e-mail address removed)
To email me remove the letter vee.

Hi,

Copy the following code into a notepad editor and save it as
'CreateRestorePoint.vbs'. You can then click it (or a shortcut to it) and
automatically name and create a restore point from anywhere.

Hope this helps


Andy






If GetOS = "Windows 7" Then
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" & " uac","", "runas", 1
Else
CreateSRP

End If
End If

Sub CreateSRP

Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
sDesc = ""
sDesc = InputBox ("Enter a Restore Point description.", "Create System
Restore Point","")
If Trim(sDesc) <> "" Then
sOut = SRP.createrestorepoint (sDesc, 0, 100)

If sOut <> 0 Then
WScript.echo "Error " & sOut & _
": Unable to create System Restore Point."

End If
End If
End Sub

Function GetOS
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
_
".\root\cimv2")
Set colOS = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOS

If instr(objOS.Caption, "Windows 7") Then
GetOS = "Windows 7"

End If
Next
End Function

 

[Dave \Crash\ Dummy]

How does one manually create a restore point in Windows 7?

http://windows.microsoft.com/en-us/windows7/Create-a-restore-point

 

[Brian Gregory [UK]]

<http://www.bing.com/search?q=create...q=crate+a+restore+point+windows+&sp=1&sc=3-30>

Fair point.

 

[Brian Gregory [UK]]

I see this question has been answered but in future you might try the
following procedure.

1. Left click the Start button.

2. In the Search box (the one that says "Search programs and files")
type your search argument. In this case enter restore point

3. If you see a topic which is close to what you want then left click
on it, e.g. "Create a restore point" and follow the instructions.

This is often much quicker than waiting for a response in Usenet.

Not trying to offend but maybe you weren't aware of this help function
in W7.

Cheers,

Thanks.

 

[Brian Gregory [UK]]

Hi,

Copy the following code into a notepad editor and save it as
'CreateRestorePoint.vbs'. You can then click it (or a shortcut to it) and
automatically name and create a restore point from anywhere.

Hope this helps


Andy






If GetOS = "Windows 7" Then
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" & " uac","", "runas", 1
Else
CreateSRP

End If
End If

Sub CreateSRP

Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
sDesc = ""
sDesc = InputBox ("Enter a Restore Point description.", "Create System
Restore Point","")
If Trim(sDesc) <> "" Then
sOut = SRP.createrestorepoint (sDesc, 0, 100)

If sOut <> 0 Then
WScript.echo "Error " & sOut & _
": Unable to create System Restore Point."

End If
End If
End Sub

Function GetOS
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
_
".\root\cimv2")
Set colOS = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOS

If instr(objOS.Caption, "Windows 7") Then
GetOS = "Windows 7"

End If
Next
End Function

Interesting.
I will try this out.

It could be adapted for all sorts of schemes where restore points are
automatically made in certain situations.