Tạo điểm khôi phục hệ thống (System Restore Point) đơn giản

Các bạn mở notepad copy nội dung sau vào và lưu lại với đuôi .vbs

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 8") Then
         GetOS = "Windows 8"
        elseIf instr(objOS.Caption, "Windows 7") Then
         GetOS = "Windows 7"   
        elseIf instr(objOS.Caption, "Vista") Then
         GetOS = "Windows Vista"
        elseIf instr(objOS.Caption, "Windows XP") Then
        GetOS = "Windows XP"
        End If
 Next
End Function
If GetOS = "Windows XP" Then
 CreateSRP
End If
If GetOS = "Windows Vista" Or GetOS = "Windows 7" Then
 If WScript.Arguments.length =0 Then
    Set objShell = CreateObject("Shell.Application")
  objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
 Else
    CreateSRP
   End If
End If
If GetOS = "Windows 8" Then
 If WScript.Arguments.length =0 Then
    Set objShell = CreateObject("Shell.Application")
  objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
         Else 
               const HKEY_LOCAL_MACHINE = &H80000002
               strComputer = "."
               Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
               strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore"
               strValueName = "SystemRestorePointCreationFrequency"
               oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,0 
        CreateSRP 
   End If
End If
Sub CreateSRP
 Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
 sDesc = Now()
 sDesc = InputBox ("||       ||   ||       ||   \\    //" &vbCr& "||===||   ||       ||    \\ //" &vbCr& "||       ||   ||___||     //        copyright " & Chr(169) &" 2013" &vbCr&vbCr& "Nhập mô tả điểm khôi phục:", "Tạo điểm khôi phục hệ thống",Now())
 If Trim(sDesc) <> "" Then
  sOut = SRP.createrestorepoint (sDesc, 0, 100)
  If sOut <> 0 Then
    WScript.echo "Lỗi " & sOut & ": Không thể tạo điểm khôi phục hệ thống."
                else
                MsgBox "Điểm khôi phục hệ thống được tạo thành công.", 0, "Tạo điểm khôi phục hệ thống"
  End If
 End If
End Sub

Click đôi để chạy chương trình, nhập vào khung mô tả để đặt tên cho điểm khôi phục (có thể để mặc định ngày giờ cho dễ quản lý), sau khi hoàn tất chương trình sẽ hiện thông báo "Điểm khôi phục hệ thống được tạo thành công.".