В приведенном ниже образце кода определяются константы, задается режим «Временно сохранять изменения» (WDP_MODE_PERSIST) для уровня защиты диска Windows, а затем определяются дата и время истечения срока действия этого режима и восстановления режима «Отменять все изменения при перезагрузке» (WDP_MODE_DISCARD).

' Образец сценария защиты диска Windows

' Определение нескольких полезных констант
'
' WDP_Control.CurrentStatus
const WDP_ACTIVE  = 0
const WDP_PASSIVE = 1

' WDP_Control.CurrentMode
const WDP_MODE_DISCARD = 0
const WDP_MODE_PERSIST = 1
const WDP_MODE_COMMIT  = 2

' Задание компьютера, к которому применяются изменения
'

strComputer  = "."

' Для свойства WDP_Control.PersistDateTime требуется тип FILETIME.  
' Простейший способ создания FILETIME из читаемой строки состоит в использовании
' объекта WBemScripting.SWbemDateTime.

set dateTime = Createobject ("WBemScripting.SWbemDateTime")

' Задание для времени и даты значения 8:00 час. 8 мая 2020 г.
dateTime.SetVarDate #5/8/2020 08:00:00 AM#
'
' Получение экземпляра класса WDP_Control WMI
'

set objWbemServices = GetObject ("winmgmts:\\" & strComputer & "\root\wmi")
set setWdpObjects   = objWbemServices.ExecQuery ("SELECT * FROM WDP_Control")

				 for each objWdp in setWdpObjects
					 objWdp.CurrentMode	 = WDP_MODE_PERSIST
					 objWdp.PersistDateTime = dateTime.GetFileTime
					 objWdp.Put_
				next

См. также