[BKPB]

Решение:

Скрытый текст

Set oWSH = CreateObject("WScript.Shell")
oWSH.Run "taskkill /f /im explorer.exe", 0, 1
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
While oWMI.ExecQuery("SELECT Status FROM Win32_Process WHERE Name='explorer.exe'").Count
WSH.Sleep 40
Wend
CreateObject("Scripting.FileSystemObject").DeleteFile oWSH._
Environment("Process")("LocalAppData") & "\Microsoft\Windows\Explorer\thumbcache_*.db", 1
oWSH.Run "explorer.exe": Set oWMI = Nothing: Set oWSH = Nothing