Распространение надстроек XLA

'   HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options
Const sPref = "HKEY_CURRENT_USER\Software\Microsoft\Office\"
Const sSuff = "\Excel\Options\OPEN"
Dim sKey: sKey = sPref & sGetVersion & sSuff & sGetFreeNumber
 
Dim sAddInPath
sAddInPath = "здесь путь придумаешь..."
 
' меняем параметр в реестре 
SetRegVal sKey, sAddInPath
 
 
 
'=========================================================
Function sGetVersion()
    Dim xl: Set xl = CreateObject("Excel.Application")
    sGetVersion = xl.Version
    xl.Quit
    Set xl=Nothing
End Function
 
Function sGetFreeNumber()
    sGetFreeNumber = "666" ' напишешь сам
End Function
 
Function sGetCurrentDirectory()
    Dim WshShell: Set WshShell = CreateObject("WScript.Shell")
    'Определяем каталог, из которого был запущен сценарий(текущий каталог)
    sGetCurrentDirectory = WshShell.CurrentDirectory
End Function
 
'-------------------------------------------------------------- РЕЕСТР ---
Sub SetRegVal(sPath, sVal)
    On Error Resume Next
    Dim WshShell: Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite sPath, sVal, "REG_SZ"  
End Sub
 
Function sGetRegVal(sPath)
    On Error Resume Next
    Dim WshShell: Set WshShell = CreateObject("WScript.Shell")
    sGetRegVal = WshShell.RegRead(sPath)     
End Function

Function FindOPENKey()
Const HKCU = &H80000001
strComputer = "."
Set StdOut = WScript.StdOut
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Office\14.0\Excel\Options"
objReg.EnumValues HKCU, strKeyPath, arrValueNames, arrValueTypes
For i=0 to Ubound(arrValueNames)
    MsgBox ("имя - " & arrValueNames(i) & " тип - " & arrValueTypes(i)) 
next 
End Function