const WDP_MODE_PERSIST = 1
 
 
 
set dateTime = CreateObject ("WBemScripting.SWbemDateTime")
 
 
 
dateToday = Date()
 
 
 
dateTime.SetVarDate dateToday + 7
 
 
 
' Identify the computer to manage
 
strComputer= "."
 
 
 
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