PDA

View Full Version : Windows show no history items


tdevinda
03-09-2007, 10:57 PM
Hi,
If any of you know the solution to this problem, please respond.
Symptoms:
I cant get the previously types addresses either on the run window, explorer or anywhere.

All the recent documents disappear as I restart the machine:confused:

The recently used programs on the start menu is static.!!! No change if I open a new one 1000 times.:angry:

This makes me sick.

I've stopped some processes from services.msc. Can't figure out if that is causing the problem.
Its like my com has short term memory loss syndrome!!!!!
Anyone know something useful?????!!!!

Thanks

SAN_APIIT
03-16-2007, 06:39 AM
Open 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 History


Option Explicit


Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\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.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If


If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If

==============================

Save as any name.vbs
and run it, i think it will do the job. :lol:

--Good luck--

nukisl
03-16-2007, 06:53 AM
lolz