Чтение из реестра - проблемы синтаксиса

[ANMAT]

Скопирую из темы, где раньше задавал вопрос, поскольку ее закрыли.

Вопрос может и не по чистому VB, но к нему имеет отношение:
Попробовал удалить(прочитать) ключ из раздела HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\ при помощи WSH и не смог найти правильный синтаксис.
Дело в том, что там имена параметров выглядят, примерно, как c:\folder\app.exe
Пытался и в кавычки взять, но ничего не выходит - возвращает ошибку "Неверная ссылка на корень в реестре".
Подскажите, пожалуйста...

Получил, правда, ответ:

\\ задваивать надо

Можно подумать, что я до этого не додумался... Естественно, не помогает...
Чтобы не быть голословным - пример на VBS:

Код: Выделить всё

key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\"
app = "C:\WINDOWS\System32\NOTEPAD.EXE"
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run app, 1, True
app = replace(app, "\", "\\")
msgbox WshShell.RegRead (key & app)

[BV]

А MSDN читать уже не модно?

Код: Выделить всё

Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"

bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")

WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"

[ANMAT]

А MSDN читать уже не модно?

Модно. Ну и что прикажешь мне делать с приведенным тобой кодом?
Это как-то поможет прочитать ключ, который не читается?
Я эти прописные истины давно усвоил. Ты прочитай ключ из моего примера.

[BV]

Ну и что прикажешь мне делать с приведенным тобой кодом?

Эм. Смотреть на синтаксис.

Это как-то поможет прочитать ключ, который не читается?

Да.

Я эти прописные истины давно усвоил.

Ох, если бы... но что-то не заметно.

[ANMAT]

Да.

Я поверю, если ты рабочий код приведешь...
Словоблудием каждый может заниматься...

Кстати, объясни-ка, что в моем синтаксисе не так...

[Antonariy]

Насчет "\\ задваивать надо" - совет явно из области js. Не надо.

Однако действительно ни один вариант со слешами не работает.

[Konst_One]

Код: Выделить всё

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.RegRead("HKCU\Software\Microsoft\Notepad\lfFaceName")

все работает, BV никто не слушает просто

[ANMAT]

все работает

Я не знаю, разговор со слепыми и глухими получается....
Ну вы что фигней занимаетесь - причем здесь это?
Есть конкретный разделHKCU\Software\Microsoft\Windows\ShellNoRoam\MUICache\
Выделю его даже жирными буквами. И в нем имена ключей выглядят как C:\WINDOWS\System32\NOTEPAD.EXE
Опять выделю.
Попробуйте его прочитать, этот ключ. Как читать обычные ключи учить не надо. В мной приведенном примере синтаксис нормальный.

[alibek]

Вообще-то автор топика говорит совсем о другом.
Попробуй прочитать параметр HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\C:\WINDOWS\System32\NOTEPAD.EXE (зеленый - это ключ).

[Konst_One]

xp понятно, у меня в 2000 такого нет

[Konst_One]

тогда только так:

Код: Выделить всё

Dim oReg, KeyToRead, sValueName, ValueToRead
const HKCU = &H80000001
const HKLM = &H80000002

KeyToRead="Software\Microsoft\Windows\ShellNoRoam\MUICache"
sValueName= "C:\WINDOWS\System32\NOTEPAD.EXE"
 
Set oReg = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& ".\root\default:StdRegProv")
 
oReg.GetStringValue HKCU,KeyToRead,sValueName,ValueToRead

MsgBox Cstr(ValueToRead)

[ANMAT]

Konst_One, спасибо!
Блин, а я в WMI даже не подумал залезть...