سه راه برای ایجاد نقطه بازگردانی در ویندوز با یک کلیک

راه دوم، استفاده از ابزار SysRestorePoint
SysRestorePoint نیز عملکردی مشابه SCRP دارد. با این تفاوت که تا حدودی پیشرفته‏تر است و پس از ایجاد نقطه بازگردانی، نام آن را نیز به شما می‏گوید. دو نسخه از SysRestorePoint موجود است. نسخه 1.2 و همچنین نسخه 1.3 که این نسخه برای اجرا نیاز به نصب NET framework 2.0. بر روی سیستم شما دارد.
اگر NET framework 2.0. را بر روی ویندوز نصب دارید نسخه 1.3 و اگر ندارید نسخه 1.2 را دریافت کنید.

پس از دریافت فایل‏ها، کافی است آنها را از حالت فشرده خارج کرده و سپس SysRestorePoint.exe را در محیطی نظیر دسکتاپ یا Quick Lunch قرار دهید تا با یک کلیک نقطه بازگردانی ایجاد شود.

راه سوم، ساخت یک فایل VBS
راه سوم شاید بهترین روش باشد. چرا که خودتان دست به کار می‏شوید و به ابزار جانبی نیاز ندارید. بدین منظور:
از منوی Start به All Programs و سپس Accessories رفته و بر روی Notepad کلیک کنید.
حال در محیط Notepad کدهای زیر را عینأ Copy و Paste نمایید:

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:. ootdefault:Systemrestore") sDesc = "Yek Noghteh Bazgardani" sDesc = InputBox ("Tozihi barayeh in noghteh bazgardani benevisid:", "Sakhteh Noghteh Bazgardani : Tarfandestan.com","Yek Noghteh Bazgardani") If Trim(sDesc) <> "" Then sOut = SRP.createrestorepoint (sDesc, 0, 200) If sOut <> 0 Then WScript.echo "Error " & sOut & _ ": Sakhteh noghteh bazgardani ba moshkel movajeh shod." End If End If End Sub Function GetOS Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!" & _ ". ootcimv2") 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

پس از کپی کدهای فوق، از منوی File بر روی Save as کلیک کنید. سپس فایل را با نام دلخواه و پسوند vbs. ذخیره کنید (به عنوان مثال نام آن را Tarfandestan.vbs قرار دهید).
حالا به مسیری که فایل را ذخیره کرده‌اید مراجعه کنید. (ترفندستان)
اکنون بر روی فایل مذکور، دوبار کلیک کنید.
در پنجره باز شده توضیحی برای نقطه بازگردانی بنویسید و با فشردن دکمه OK آن را بسازید.
جهت سهولت کار این فایل را در محلی مانند دسکتاپ یا Quick Lunch قرار دهید.