Đơn giản là các bạn sử dụng NotePad tạo file khoiphuc.vbs là xong .
Cách tạo siêu nhanh một điểm mốc khôi phục hệ thống, mục đích giúp các bạn tạo lập tức một system restore point trong Windows 7 đề phòng gặp sự cố có thể khôi phục trở lại thời điểm tạo mốc khôi phục này. 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