Включение защиты системы с помощью vbs

[Maddrag]

Здравствуйте! Подскажите, пожалуйста, как можно включить защиту системы и указать под это выделяемое пространство на диске с помощью vbs скрипта?
В инете, в частности здесь (https://www.outsidethebox.ms/9961/), нашел только создание точек восстановления с помощью vbs

[Iska]

How Can I Enable System Restore Using a Script? - Scripting Blog (https://devblogs.microsoft.com/scripting/how-can-i-enable-system-restore-using-a-script/)
Restore a Windows system using VBScript (https://www.activexperts.com/admin/vbscript-collection/desktop/system/)

[Maddrag]

Спасибо, включить защиту системы получилось.
А вот с установкой выделяемого искового пространства загвоздка.
Как я понял, это назначается в этом скрипте
Const GLOBAL_INTERVAL_IN_SECONDS = 100000
Const LIFE_INTERVAL_IN_SECONDS = 8000000
Const SESSION_INTERVAL_IN_SECONDS = 500000

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")

Set objItem = objWMIService.Get("SystemRestoreConfig='SR'")
objItem.DiskPercent = 10
objItem.RPGlobalInterval = GLOBAL_INTERVAL_IN_SECONDS
objItem.RPLifeInterval = LIFE_INTERVAL_IN_SECONDS
objItem.RPSessionInterval = SESSION_INTERVAL_IN_SECONDS
objItem.Put_
Но ничего не меняется после отработки скрипта, и ошибок никаких не пишет.

[Iska]

Maddrag, как именно проверяли:
Но ничего не меняется после отработки скрипта »
?

[Maddrag]

Iska, Я жду, что изменится значение в окне на скриншоте.
Я уже увидел, что после выполнения этого скрипта:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default")

Set colItems = objWMIService.ExecQuery("Select * from SystemRestoreConfig")

For Each objItem in colItems
Wscript.Echo "Disk Percent: " & objItem.DiskPercent
Wscript.Echo "Global Interval (in seconds): " & objItem.RPGlobalInterval
Wscript.Echo "Life Interval (in seconds): " & objItem.RPLifeInterval
If objItem.RPSessionInterval = 0 Then
Wscript.Echo "Session Interval: Feature not enabled."
Else
Wscript.Echo "Session Interval (in seconds): " & _
objItem.RPSessionInterval
End If
Next
Значение показывается какое я указал в предыдущем скрипте, но я теперь не уверен, что это именно то, что мне надо, раз показатель на скриншоте не меняется.