This script will Enable Recent Items so they can be deleded at logOff. (VBScript)
| 'Clear Resect Items at LogOff Dim WSHShell, n, MyBox, p, itemtype, Title Message = "This script will Enable Recent Items to be deleted at LogOff." & vbCR Message = Message & "This script will edit the registry." & vbCR & vbCR Message = Message & "Continue?" X = MsgBox(Message, vbYesNo+ vbQuestion,"Notice") If X = 6 Then Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\" p = p & "ClearRecentDocsOnExit" itemtype = "REG_DWORD" n = 1 WSHShell.RegWrite p, n, itemtype Title = "Clear Recent Items is now Enable." &vbCr Title = Title & "Recent Items will be deleted at LogOff." &vbcr &vbcr Title = Title & "This script was downloaded from www.paulsxp.com" MyBox = MsgBox(Title,48,"Finished") End If |