В приведенном ниже образце кода определяются константы, задается режим «Временно сохранять изменения» (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 |