منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تعطيل/تفعيل system restore في الوندز - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعطيل/تفعيل system restore في الوندز (/showthread.php?tid=485)



تعطيل/تفعيل system restore في الوندز - Mr.ILI - 11-10-13

السلام عليكم ...

كيف يمكن تعطيل/تفعيل system restore في الوندز وجربت هاد الكود عن طريق الرجستري ولكنني اظنه لم يعمل :

للتعطيل
PHP كود :
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore""DisableSR""0"Microsoft.Win32.RegistryValueKind.DWord

للتفعيل
PHP كود :
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore""DisableSR""1"Microsoft.Win32.RegistryValueKind.DWord

لم ينفع على ما اظن [/align]


RE: تعطيل/تفعيل system restore في الوندز - Genius Live - 22-02-14

MicroSoft MSDN
Disable
كود :
Set Args = wscript.Arguments
If Args.Count() > 0 Then
    Drive = Args.item(0)
Else
    Drive = ""
End If

Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")

If (obj.Disable(Drive)) = 0 Then
    wscript.Echo "Success"
Else
    wscript.Echo "Failed"
End If
Available
كود :
Set RPSet = GetObject("winmgmts:root/default").InstancesOf ("SystemRestore")
for each RP in RPSet
    wscript.Echo "Dir: RP" & RP.SequenceNumber & ", Name: " & RP.Description & ", Type: ", RP.RestorePointType & ", Time: " & RP.CreationTime
next

والله أعلي وأعلم
RolleyesRolleyesRolleyes