Create Restore Point?

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

--

Brian Gregory. (In the UK)

To email me remove the letter vee.

On 4/9/2011 10:38 PM, Brian Gregory [UK] wrote:
> How does one manually create a restore point in Windows 7?
>

<http://www.bing.com/search?q=create+a+restore+point+windows+7&form=MSNH14&qs=SC&sk=&pq=crate+a+restore+point+windows+&sp =1&sc=3-30>

On Sun, 10 Apr 2011 03:38:45 +0100, "Brian Gregory [UK]"
<> wrote:

>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,

"Brian Gregory [UK]" <> wrote in message
news:...
> How does one manually create a restore point in Windows 7?
>
> --
>
> Brian Gregory. (In the UK)
>
> 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

Brian Gregory [UK] wrote:
> How does one manually create a restore point in Windows 7?

http://windows.microsoft.com/en-us/w...-restore-point
--
Crash

What happens online, stays online.

"Big Steel" <> wrote in message
news:...
> On 4/9/2011 10:38 PM, Brian Gregory [UK] wrote:
>> How does one manually create a restore point in Windows 7?
>>
>
> <http://www.bing.com/search?q=create+a+restore+point+windows+7&form=MSNH14&qs=SC&sk=&pq=crate+a+restore+point+windows+&sp =1&sc=3-30>

Fair point.

--

Brian Gregory. (In the UK)

To email me remove the letter vee.

"Monty" <> wrote in message
news:...
> On Sun, 10 Apr 2011 03:38:45 +0100, "Brian Gregory [UK]"
> <> wrote:
>
>>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,

Thanks.

--

Brian Gregory. (In the UK)

To email me remove the letter vee.

"Andy" <> wrote in message
news:B1eop.26626$2...
>
>
> "Brian Gregory [UK]" <> wrote in message
> news:...
>> How does one manually create a restore point in Windows 7?
>>
>> --
>>
>> Brian Gregory. (In the UK)
>>
>> 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
>
>

Interesting.
I will try this out.

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

--

Brian Gregory. (In the UK)

To email me remove the letter vee.