Reply to thread

Message: <blockquote data-quote="SAN_APIIT" data-source="post: 366568" data-attributes="member: 22533">SolutionOpen notepad and copy paste the following text in to it... (don't copy the "==" lines ok, just the text between them)=======================================' Disables/Enables Recent Docs HistoryOption ExplicitDim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, versDim enab, disab, jobfunc, itemtypeSet WSHShell = WScript.CreateObject("WScript.Shell")p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"p = p & "NoRecentDocsHistory"itemtype = "REG_DWORD"mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"enab = "ENABLED"disab = "DISABLED"jobfunc = "Recent Docs History is now "t = "Confirmation"Err.ClearOn Error Resume Nextn = WSHShell.RegRead (p)On Error Goto 0errnum = Err.Numberif errnum <> 0 then    WSHShell.RegWrite p, 0, itemtypeEnd IfIf n = 0 Then    n = 1WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)ElseIf n = 1 then    n = 0WSHShell.RegWrite p, n, itemtypeMybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)End If==============================Save as any name.vbsand run it, i think it will do the job. <img src="/styles/default/xenforo/smilies/default/lol.gif"  class="smilie" loading="lazy" alt=":lol:" title="LOL    :lol:" data-shortname=":lol:" /> --Good luck--</blockquote>

Top Bottom