Подскажите как правильно считать с помощью конструкции WshShell.RegRead() значение параметра из ветки реестра "HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles\"

проблема в том что названия параметров там в виде "I:\1C_Base\"

то есть в результате получается следующее: WshShell.RegRead("HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles\I:\1C_Base\")
и при попытке случается ошибка (Err.Number=-2147024735, Err.Description="Неверная ссылка на корень в разделе реестра")

подскажите пожалуйста синтаксис, а то я уже всю голову сломал

мыло скажи..

Книга знаний: Кислотно-щелочной баланс или сбор информации об окружении

HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles\I:\1C_Base\ - загоняешь в переменную, и уже WshShell.RegRead(переменная)

+ (3) попробуй..

(2) не, мне именно в VBScript нужно. боюсь что все-таки есть разница

там есть именно на VBScript

function vlGetListBase()


только ковычки надо будет по сокращать

у меня это сейчас так:

PathToListBases = "HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles\"

UnderTestPath = "I:\1C_Bases\Автосалон\v7\Бух\"

KeyBase = WshShell.RegRead(PathToListBases & UnderTestPath)

не работает

(5) (3) не помогло?

хм

Const HKEY_CURRENT_USER = &H80000001
Set oRegProv = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\1C\1Cv7\7.7\Titles"
iRes = oRegProv.EnumValues(HKEY_CURRENT_USER, strKeyPath, arrValues)

MsgBox("база" & strpath,vbOK)

Const HKEY_CURRENT_USER = &H80000001

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

Set oRegProv = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strKeyPath = "Software\1C\1Cv7\7.7\Titles"

iRes = oRegProv.EnumValues(HKEY_CURRENT_USER, strKeyPath, arrValues)

strpath = join(arrValues,";")

MsgBox "база" & strpath, vbOK

arrValues - там список всех баз.. удачи..

Книга знаний: Получение списка баз vb скриптом (краткий пример) добавил в КЗ как полный, простой и исчерпывающий пример..

блин, ладно, с тем что дали как-нибудь разберусь

но вообще мне список баз не нужен был, мне нужно было проверить конктретную базу

(14) Ну так и воспользуйся (11)

(6)

правильно порезал?

а то все равно не пашет

Const HKEY_CURRENT_USER = &H80000001

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")
Set oRegProv = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "Software\1C\1Cv7\7.7\Titles"
iRes = oRegProv.EnumValues(HKEY_CURRENT_USER, strKeyPath, arrValues)
strpath = join(arrValues,";")

if instr(1,strPath,"ПУТЬ К ИСКОМОЙ БАЗЕ")>0 Then ' если нет в списке то добавим
MsgBox "Эта база уже зарегена!",vbOK
End If

(15) ага, спасиб

правда и тот способ пригодится потом

(16) помогло или нет? Или тебе че-то другое надо было?

(19)блин, копипаст забыл сделать=) порезал вот так:

function strGetListBase()

   const RootKey = &H80000001
   set Reg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\." & "\root\default:StdRegProv")
   PathKey = "Software\1C\1Cv7\7.7\Titles"
   Reg.EnumValues RootKey, PathKey, Arr
   for x = LBound(Arr) to UBound(Arr)
       call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)
       Answer = Answer & Arr(x) & Value
'        if x <> UBound(Arr) then Answer = Answer & "",""
   next
   
   Msg Answer

end function