ปกติผู้ใช้ Windows ทั่วไปจะทราบอยู่แล้วว่าการสร้างจุด Restore Point เพื่อสำรองไฟล์ระบบของ Windows ด้วย System Restore? คุณจะต้องคลิกโน่นคลิกนี่หลายขั้นตอน กว่าจะได้ Restore Point
วันนี้จะแนะการใช้ VBScript มาเป็นเครื่องมือการสร้าง Restore Point ชึ่งง่ายและรวดเร็วกว่า โดยมีวิธีดังนี้
1. เปิดโปรแกรม Notepad ขึ้นมา แล้วเขียนคำสั่ง VBScript ตามดังนี้…
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 = “Manual Restore Point”
sDesc = InputBox (“Enter a description.”, “System Restore script : Augie Young”,”Manual Restore Point”)
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=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”
ElseIf instr(objOS.Caption, “Vista”) Then
GetOS = “Windows Vista”
elseIf instr(objOS.Caption, “Windows XP”) Then
GetOS = “Windows XP”
End If
Next
End Function
2. บันทึกไฟล์นี้เป็นชื่อ RestorePoint.vbs โดยบันทึกเก็บไว้ที่เก็บไฟล์ชั่วคราวของคุณ
3. เวลาใช้งานก็ดับเบิลคลิกที่ไฟล์ที่สร้างขึ้นมา จะมีหน้าต่าง System Restore script ออกมา ให้คุณใส่ชื่อตามแต่คุณค้องการลงในช่องว่างของหน้าต่าง ซึ่งมีค่าดีฟอลต์ว่า Manual Restore Point
4. คลิกปุ่ม OK ก็เสร็จเรียบร้อย
5. เมื่อคุณจะใช้งานโดยทำการ System Restore คุณจะเห็นชื่อของ Restore Point ที่คุณสร้างด้วย VBScript ไว้
