Добрый день!

Как на VBS :
1. Проверить наличие ключа реестра ?
2. Импортировать reg-файл в реестр ?

С уважением, Алексей

White Owl,

Спасибо!
Кстати, нашел еще один способ - запуск "regedit /s" из скрипта
для импорта reg-файла :

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run ("regedit /s " + """"+ sImpRegFileName + """", 7, true)

Всего пара строк, зато сколько удовольствия :))


И функция условного импорта reg-файла :

Sub ImpRegFileIfNeed (sTestRegKeyFullName, sImpRegFileName)
'-- Если в реестре нет ключа sTestRegKeyFullName, то импортировать
'-- reg-файл sImpRegFileName.
'--
Dim WshShell, sKey
Set WshShell = WScript.CreateObject("WScript.Shell")

'-- Если в реестре компьютера уже существует значение ключа sTestRegKeyFullName,
'-- то сразу выходим, потому что Reg-файл импортировать в реестр не нужно :
sKey = Null
on error resume next
sKey = WshShell.RegRead(sTestRegKeyFullName)
on error goto 0
If Not IsNull(sKey) Then Exit Sub End if

'-- Если находим файл sImpRegFileName ,
'-- то запускаем импорт его в реестр при помощи команды 'regedit /s' :
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FileExists(sImpRegFileName) then
MsgBox( "Ошибка при вызове функции ImpRegFileIfNeed :" + Chr(10) + Chr(10) +_
" " + Chr(10) + Chr(10) + _
" Файл ''" + sImpRegFileName + "'' - не найден !" + Chr(10) + Chr(10) + _
Chr(10) _
)
exit Sub
end If
'--
retRun = WshShell.run ("regedit /s " + """"+ sImpRegFileName + """", 7, true)
if retRun<>0 then
MsgBox( "Ошибка при вызове функции ImpRegFileIfNeed :" + Chr(10) + Chr(10) +_
" " + Chr(10) + Chr(10) + _
" при попытке импортировать Файл ''" + sImpRegFileName + "'' - в реестр Windows !" + Chr(10) + Chr(10) + _
Chr(10) _
)
end if

End Sub ' -- ImpRegFileIfNeed (..)