Tạo System Restore Point siêu nhanh trong Windows 7

System Restore rất cần thiết và rất mạnh, giúp chúng ta có thể khôi phục hệ thống về trạng thái tốt nhất sau khi hệ thống bị trục trặc mà không tìm ra giải pháp khắc phục.
Bài viết này giới thiệu với các bạn 2 cách để tạo ra một System Restore Point.

Cách 1:
1- Click Start, gõ SystemPropertiesProtection (ENTER).

2-Click nút Create.

3- Gõ mô tả ngắn gọn cho điểm mốc khôi phục hệ thống này, sao cho bạn có thể dễ dàng nhận ra thời điểm bạn tạo mốc khôi phục.



4- Bạn chờ trong một thời gian ngắn.


5- All done! Bây giờ bạn đã có một mốc khôi phục hệ thống an toàn, nếu như gặp rắc rối không xử lí được bạn có thể khôi phục lại. Tất cả những thay đổi hệ thống sai, lỗi đều bị xóa bỏ.


6- Khi bạn muốn lựa chọn trở về một mốc khôi phục đã tạo, Click Start, gõ rstrui (ENTER).


Bạn sẽ nhận được một cửa sổ cho phép lựa chọn mốc khôi phục hệ thống. Bạn có thể lựa chọn theo khuyến cáo “Recommended restore”, rồi click next, hoặc lựa chọn một system restore point khác (nếu có nhiều mốc khôi phục được tạo từ trước).





Note: Để đạt kết quả tốt nhất, bạn nên chạy System Restore để khôi phục hệ thống trong Safe mode.
__________________


Cách 2:

Các bạn copy đoạn code sau vào NotePad, save as với tên file là CreateSRP.VBS và để ở Desktop. Mỗi khi muốn tạo một điểm mốc khôi phục hệ thống, các bạn chỉ cần nhấp đúp file VB Script này, và gõ mô tả ngắn gọn tên điểm khôi phục để bạn có thể dễ dàng nhận ra sau này vào ô chờ, Enter là xong:

Code:
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, "7") Then
GetOS = "Windows 7"

End If
Next
End Function
:infatuated::cheers: