[решено] CMD в VBS - 1 - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] CMD в VBS - 1 (http://forum.oszone.net/showthread.php?t=345872)

BKPB	18-07-2020 14:21 2928537

CMD в VBS - 1

Помогите пожалуйста, конвертировать 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

18-07-2020 16:06 2928550

Код:

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	18-07-2020 16:41 2928553

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

BKPB	19-07-2020 11:11 2928620

Решение:

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

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

Время: 06:44.