'Russian -- Русский
'
'Скрипт очистки кэша значков текущего пользователя
'This script clears the icon cache for current user
'
'Mikhail Zhilin, MS MVP (years 2000..2011)
'aka mwz
'04 Feb 2011
 
Dim WSh
Set WSh = WScript.CreateObject("WScript.Shell")
 
Message = "Очистка кэша значков пользователя в Windows-7" & vbCR
Message = Message & vbCR
'
Message = Message & "Для правильной работы скрипт отключит," & vbCR
Message = Message & "а затем запустит Windows Explorer." & vbCR & vbCR
Message = Message & "Для системы это безвредно. Продолжить?"
 
X = MsgBox(Message, vbYesNo, "Windows-7. Очистка кэша значков пользователя")
 
If X = 6 Then
 
   On Error Resume Next

   For Each Process in GetObject("winmgmts:"). _
   ExecQuery ("select * from Win32_Process where name='explorer.exe'")
      Process.terminate(0)
   Next
 
   WSh.Run "cmd /c attrib -h -s -r ""%USERPROFILE%\AppData\Local\IconCache.db"""
   WSh.Run "cmd /c del ""%USERPROFILE%\AppData\Local\IconCache.db"""
 
Else
 
   MsgBox "Никакие изменения не внесены.", 4096, "Отмена"
 
End If
Set WSh = nothing