Info IT:Cara membuat System Restore Point

Kali ini saya akan memberikan info tentang cara membuat System Restore Point.Untuk Yang tidak tahu apa itu Restore Point bisa di lihat di SINI

Berikut cara membuat restore point:

1.Buka NotePad
2.Copy Paste Tulisan berikut:

"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", """" & _
WScript.ScriptFullName & """" & " uac","", "runas", 1
Else
CreateSRP
End If
End If

Sub CreateSRP
Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore ")
sDesc = "Pre System File Replacement"

If Trim(sDesc) <> "" Then
sOut = SRP.createrestorepoint (sDesc, 0, 100)
If sOut <> 0 Then
WScript.echo "Error " & sOut & _
": Unable to create Restore Point."
End If
End If
End Sub

Function GetOS
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & _
".\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"
ElseIf instr(objOS.Caption, "Vista") Then
GetOS = "Windows Vista"
elseIf instr(objOS.Caption, "Windows XP") Then
GetOS = "Windows XP"
End If
Next
End Function"

3.Save File dengan nama apa saja asalkan berekstensi .VBS
4.Selesai tinggal di klik 2 kali.

Sekain info dari saya semoga bermanfaat.