VBS/WSH/JS - [решено] CMD в VBS

megaloman · Отправлено: **16:06, 18-07-2020** | #2

Код:

Set WMI = GetObject("winMgmts:").ExecQuery("SELECT * From Win32_Process WHERE Name='Explorer.exe'")

Set FSO = CreateObject("Scripting.FileSystemObject")
FName = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%LOCALAPPDATA%")+"\Microsoft\Windows\Explorer\thumbcache_*.db"

For Each P In WMI
    P.Terminate
Next
FSO.DeleteFile FName, True

Ret = CreateObject("WScript.Shell").Run("Explorer.exe", 1, False)

BKPB · Отправлено: **16:41, 18-07-2020** | #3

У меня на Windows 10, выскакивает ошибка.
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\Users\Администратор ПК\Desktop\ThumbCache.vbs
Строка: 9
Символ: 1
Ошибка: Разрешение отклонено
Код: 800A0046
Источник: Ошибка выполнения Microsoft VBScript

BKPB · Отправлено: **11:11, 19-07-2020** | #4

Решение:

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

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