например, через WMIC
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore]
"DisableSR"=dword:00000000Нет,нельзя - данный метод ограничен методами отключения службы и,если память не изменяет, версией ОС.
Вот тут и поближе))
Т.е. что ты имеешь в виду - в реестре цифра 0, а еще где-то отключена и служба и поэтому SR не будет работать?
Я имею ввиду - если отключение произведено не через параметр реестра,то в ряде случаев это тупо не произойдет.
Sub AddRestorePoint()
'Создаем точку восстановления,прога приглушена до завершения операции.
'=====================================================================
Const Alpha = 450
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, Alpha, 2
windetekt.Enabled = False
Text1.FontBold = True
Dim objWMIService, objItem, errResults
Text1.Text = strCreateSystemRestorePoint1 & vbNewLine & "Ожидайте завершения операции..."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default")
Set objItem = objWMIService.Get("SystemRestore")
errResults = objItem.CreateRestorePoint _
("Windows Error Detector", DEVICE_DRIVER_INSTALL, BEGIN_SYSTEM_CHANGE)
If errResults = 0 Then
Text1.Text = strCreateSystemRestorePoint2
Else
Text1.Text = strCreateSystemRestorePoint3
End If
Set objItem = Nothing
Set objWMIService = Nothing
windetekt.Enabled = True
SetWindowLong hwnd, GWL_EXSTYLE, 0
Text1.Text = "Контрольная точка успешно создана!"
Text1.FontBold = False
End SubДело в том, что если ты отключишь SR другим методом, то в реестре соответственно также изменится значение. Работа SR неразрывно связана с той веткой.
А как ещё отключено? Что по твоему происходит при штатном (например из панели управления) отключение/включение службы восстановления.
Я так и делал.
хм...посмотрю.
сделаю вам скринов,поверите?
. Они общие для всех. Как всегда, объявляется декларация функции, необходимые структуры и производится сам вызов.
Я не помню если честно)) Тема про авз ведь большая.
Через нее будет вот так:
Option Explicit
Const MAX_DESC As Long = 255
Private Type PRESTOREPOINTINFO
dwEventType As Long
dwRestorePtType As Long
llSequenceNumber As Currency
szDescription As String * MAX_DESC
End Type
Private Type PSTATEMGRSTATUS
nStatus As Long
llSequenceNumber As Currency
End Type
Const BEGIN_SYSTEM_CHANGE As Long = 100
Const END_SYSTEM_CHANGE As Long = 101
Const DEVICE_DRIVER_INSTALL As Long = 10
Const MANUALLY_CREATED As Long = 16
Const ERROR_SUCCESS As Long = 0
Const ERROR_BAD_ENVIRONMENT As Long = 10
Const ERROR_DISK_FULL As Long = 112
Const ERROR_INTERNAL_ERROR As Long = 1359
Const ERROR_INVALID_DATA As Long = 13
Const ERROR_SERVICE_DISABLED As Long = 1058
Const ERROR_TIMEOUT As Long = 1460
Private Declare Function SRSetRestorePoint Lib "SrClient.dll" Alias "SRSetRestorePointA" (pRestorePtSpec As PRESTOREPOINTINFO, pSMgrStatus As PSTATEMGRSTATUS) As Long
Private Sub Form_Load()
Dim pRestoreInfo As PRESTOREPOINTINFO
Dim pState As PSTATEMGRSTATUS
With pRestoreInfo
.dwEventType = BEGIN_SYSTEM_CHANGE
.dwRestorePtType = DEVICE_DRIVER_INSTALL 'or MANUALLY_CREATED (undocumented)
.szDescription = String$(MAX_DESC, vbNullChar)
Mid$(.szDescription, 1) = "SafeZone.cc - Run SFC /scannow"
End With
If SRSetRestorePoint(pRestoreInfo, pState) And pState.nStatus = ERROR_SUCCESS Then 'Success
'Release the sequence
pRestoreInfo.dwEventType = END_SYSTEM_CHANGE
pRestoreInfo.llSequenceNumber = pState.llSequenceNumber
Call SRSetRestorePoint(pRestoreInfo, pState)
If pState.nStatus = ERROR_SUCCESS Then Debug.Print "OK. Success with release the sequence."
Else
Select Case pState.nStatus
Case ERROR_BAD_ENVIRONMENT
Debug.Print "The function was called in safe mode."
Case ERROR_DISK_FULL
Debug.Print "System Restore is in standby mode because disk space is low."
Case ERROR_INTERNAL_ERROR
Debug.Print "An internal error occurred."
Case ERROR_INVALID_DATA
Debug.Print "The sequence number is invalid."
Case ERROR_SERVICE_DISABLED
Debug.Print "System Restore is disabled."
Case ERROR_TIMEOUT
Debug.Print "The call timed out due to a wait on a mutex for setting restore points."
Case Else
Debug.Print "Unknown error #" & pState.nStatus
End Select
Debug.Print "LastDllError #" & Err.LastDllError
End If
Unload Me
End Subт.е. я не уверен, что это вообще будет работать на серверных ОС.
С этим разобрался. В rstrui не сразу становится видна созданная точка, а только через секунд 10-15.
Sub DisableSystemRestore()
Dim objWMIService, objItem, errResults
Print strDisableSystemRestore1
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default")
Set objItem = objWMIService.Get("SystemRestore")
errResults = objItem.Disable("")
If errResults = 0 Then
Print strDisableSystemRestore2
Else
Print strDisableSystemRestore3
End If
Set objItem = Nothing
Set objWMIService = Nothing
End SubHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SPP\Clients\\?\Volume{a23e3006-0d89-11e3-9fe4-806e6f6e6963}\:(C%3A)Кирилл, я же тебе все объяснял в предыдущем посте:
Зато как код для создания точек очень хорош, потому что ты можешь получить описание любой ошибки, которая может произойти во время создания КТ.
Отключаешь SR, и очищается теневое хранилище? Хм... интересно.
