Option Explicit

Dim WSHShell, n, MyBox, p, itemtype, Title

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\"
p = p & "limitblankpassworduse"
itemtype = "REG_DWORD"
n = 1

WSHShell.RegWrite p, n, itemtype
Title = "Your Scheduled Tasks Can Now be Run only with a Password." & vbCR
Title = Title & "You may need to log off/log on" & vbCR
Title = Title & "For the change to take effect."
MyBox = MsgBox(Title,4096,"Finished")