Получение путей баз vb скриптом (краткий пример)

Книга знаний

Получение путей баз vb скриптом (краткий пример)

Получение путей баз 1cv77 скриптом vb

Автор статьи: DGorgoN | Редакторы:
Последняя редакция №2 от 07.09.07 | История
URL: http://kb.mista.ru/article.php?id=587

Ключевые слова: 1cv77, 1с, vb, пути баз

Краткий пример получения путей баз 1с 1cv77 скриптом vb

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