Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Старожил


Сообщения: 205
Благодарности: 68

Профиль | Отправить PM | Цитировать


Файл vbs вот такого содержания вроде бы работает, но, опять же, путь к паке должен быть только с английскими символами:
Код: Выделить весь код
Const HKCU = &H80000001 'HKEY_CURRENT_USER

sComputer = "."   

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
            & sComputer & "\root\default:StdRegProv")

sKeyPath = "Control Panel\Desktop\"
sValueName = "TranscodedImageCache"
oReg.GetBinaryValue HKCU, sKeyPath, sValueName, sValue


sContents = ""

For i = 24 To UBound(sValue)
  vByte = sValue(i)
  If vByte <> 0 And vByte <> "" Then
    sContents = sContents & Chr(vByte)
  End If
Next

CreateObject("Wscript.Shell").Run "explorer.exe /select,""" & sContents & """"
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:53, 03-07-2016 | #4