Create Restore Point?

B

Brian Gregory [UK]

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

Monty

How does one manually create a restore point in Windows 7?
Click to expand...

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

Andy

Brian Gregory said:
How does one manually create a restore point in Windows 7?

--

Brian Gregory. (In the UK)
[email protected]
To email me remove the letter vee.
Click to expand...


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
 
B

Brian Gregory [UK]

Monty said:
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,
Click to expand...

Thanks.
 
B

Brian Gregory [UK]

Andy said:
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
Click to expand...

Interesting.
I will try this out.

It could be adapted for all sorts of schemes where restore points are
automatically made in certain situations.
 
You must log in or register to reply here.
Top