Получение путей баз vb скриптом (краткий пример) Ключевые слова: 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 |