[Amin_Mansouri]

از کار انداختن سیستم ریستوری

کد:

Public Sub KillRestore()
Dim reg
Set reg = CreateObject("WScript.Shell")
reg.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\SystemRestore\DisableSR", 1, "REG_DWORD"
End Sub
enjoy