'Russian -- Русский

'History Cleaner of RUN and Notification Area (Windows 7)
'(c) Mikhail Zhilin (MS MVP Teams 2000..2011)
'04 Feb 2011
'
'Очиска истории значков Области уведомлений (System Tray)
' и истории запуска программ (Выполнить...) в Windows-7.
'
'С использованием статьи MS KB  http://support.microsoft.com/kb/Q283084
'"How do I clear past items from the Customize Notifications dialog box in Windows XP?"
'и моих скриптов от 19 Sept 2004 и 23 Sept 2008
'
'Thanks to Kelly Theriot (MS MVP) and Doug Knox (MS MVP) for the ideas. 

Dim WSh
Set WSh = WScript.CreateObject("WScript.Shell")

Message = "Для правильной работы скрипт отключит Проводник" & vbCR
Message = Message & "(Рабочий стол на несколько секунд опустеет)." & vbCR 
Message = Message & "По завершении работы скрипта Проводник возобновит работу." & vbCR 
Message = Message & "Для системы это безвредно."& vbCR & vbCR

Message = Message & "Скрипт удаляет два ключа реестра и перестраивает ещё один," & vbCR 
Message = Message & "поэтому программы ограничения доступа к реестру (напр., Norton AV)"& vbCR
Message = Message & "предупредят о подозрительном скрипте с действием 'RegDelete'."& vbCR
Message = Message & "В этом случае надо добавить скрипт в доверенные, а затем перезапустить."& vbCR & vbCR

Message = Message & "Продолжить?"
 
X = MsgBox(Message, vbYesNo, "Windows-7: Очистка истории RUN и истории SystemTray")
 
If X = 6 Then

   pn="HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\"
   pr="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\"

   On Error Resume Next

   For Each Process in GetObject("winmgmts:"). _
   ExecQuery ("select * from Win32_Process where name='explorer.exe'")
      Process.terminate(0)
   Next

   WSh.RegDelete pn & "TrayNotify\PastIconsStream"
   WSh.RegDelete pn & "TrayNotify\IconStreams"
   WSh.RegDelete pr & "RunMRU\"
   WSh.RegWrite pr & "RunMRU\","","REG_SZ"

Else
 
   MsgBox "Никакие изменения не внесены.", 4096, "Завершение"
 
End If
Set WSh = nothing