10-17-2011، 08:11 PM
از کار انداختن سیستم ریستوری
کد:
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