'Script to modify the MRU list for Start>Run,  Steve Yandl, Sept 11, 2000
Dim shell, dict, path, Ordering, Counter, TLimit, Letter, RunLine, k, i, s, DumpIt, Purge, Zap, Alphabet, Keepers, l, Newref
Dim TheLine
Set shell=CreateObject("Wscript.Shell")
Set dict = CreateObject("Scripting.Dictionary")
path="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
On Error Resume Next
'Find out what is presently there and populate the dictionary object with the values
Ordering=shell.RegRead(path&"\MRUList")
If Err.Number<>0 Then MsgBox "There are no entries to clear":Set shell=Nothing:Set dict=Nothing:WScript.Quit
If Ordering="" Then MsgBox "There are no entries to clear":Set shell=Nothing:Set dict=Nothing:WScript.Quit
Counter=0
TLimit=Len(Ordering)
Do While Counter<TLimit
Counter=Counter+1
Letter=Mid(Ordering,Counter,1)
RunLine=shell.RegRead(path&"\"&Letter)
dict.add Letter, RunLine
Loop
    k=dict.keys
    For i = 0 To dict.Count -1 ' Iterate the array.
    TheLine=Left(dict.Item(k(i)),Len(dict.Item(k(i)))-2)
    s = s &k(i)&" >>   "& TheLine &vbCRLF ' Create return string.    
    Next
'Let the user pick items to dump
DumpIt=InputBox("ENTER INDEX LETTERS FOR ANY RUN LINES TO DELETE (Reboot after OK)"&vbCRLF&_
vbCRLF&"Index >> Run Line"&vbCRLF&s,"Kill These")
Purge=Len(DumpIt)
'Delete bum keys or escape program
    If Purge>0 Then
    For i = 0 To dict.Count -1 ' Iterate the array.
    shell.RegDelete path&"\"&k(i)        
    Next
    Else
    Set dict=Nothing
    Set shell=Nothing
    WScript.Quit
    End If
'Dump entries in the record we don't want back in the registry
    For j=1 To Purge
    Zap=Mid(DumpIt,j,1)
    dict.Remove Zap
    Next
'Reset the MRU list for remaining values and write them back to the registry
Alphabet="abcdefghijklmnopqurstvwxyz"
Keepers=Left(Alphabet,(TLimit-Purge))
shell.RegWrite path&"\MRUList",Keepers
'
   l=dict.keys
   For i = 0 To dict.Count-1
   Newref=Mid(Keepers,i+1,1)
   shell.RegWrite path&"\"&Newref,dict.Item(l(i))
   Next
Set dict=Nothing
Set shell=Nothing