ElaKiri Community
tdevinda's Avatar
tdevinda tdevinda is offline
Senior Member
tdevinda is on a distinguished road
Posts: 858
Join Date: Nov 2006
Location: Mattegoda
Send a message via MSN to tdevinda
! Windows show no history items - 03-09-2007, 11:57 PM

If any of you know the solution to this problem, please respond.
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

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

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?????!!!!

Reply With Quote
SAN_APIIT's Avatar
Senior Member
SAN_APIIT is just really niceSAN_APIIT is just really niceSAN_APIIT is just really niceSAN_APIIT is just really niceSAN_APIIT is just really niceSAN_APIIT is just really niceSAN_APIIT is just really niceSAN_APIIT is just really niceSAN_APIIT is just really nice
Posts: 4,659
Join Date: Mar 2007
Location: In a Chip !!!
Up Solution - 03-16-2007, 07: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\Po licies\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"
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.

--Good luck--
Reply With Quote
nukisl's Avatar
nukisl nukisl is offline
Senior Member
nukisl is an unknown quantity at this point
Posts: 16,211
Join Date: Sep 2006
03-16-2007, 07:53 AM

Reply With Quote


Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Download MADHURA English-Sinhala Dictionary rapa Downloads 542 10-08-2014 05:53 PM
Making Windows XP Start 60% Faster rapa Tips & Tricks 45 05-30-2009 10:42 AM
AutoPatcher Vista May 2007 FULL Anusha Downloads 46 02-17-2008 12:23 PM
History of Microsoft Windows with Screenshots fazaal24 ElaKiri Talk! 18 11-30-2007 05:31 PM
Some Windows XP Tips & Tricks.... gazaly ElaKiri Tabloid 11 11-10-2007 12:05 AM

Copyright © 2006 - 2011 ElaKiri™ Beta2.Evo vBulletin, vBa iBproArcade Subdreamer I-Magic MKv

Page generated in 0.03066 seconds with 9 queries