[решено] CMD в VBS - 1

[BKPB]

Помогите пожалуйста, конвертировать CMD в VBS.

@echo off

taskkill /f /im explorer.exe
cd /d %userprofile%\AppData\Local\Microsoft\Windows\Explorer
attrib -h thumbcache_*.db
del /q thumbcache_*.db
start explorer.exe

[megaloman]

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]

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

[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