Chabge Addin_Path value to the path of XLA file of Excel Addin that needs to be set
On Error resume next
Const HKEY_CURRENT_USER = &H80000001
const REG_SZ = 1
const REG_EXPAND_SZ = 2
const REG_BINARY = 3
const REG_DWORD = 4
const REG_MULTI_SZ = 7
Set objArg = WScript.Arguments
AddIn_path = objArg(0)
AddIn_path = "C:\Program Files\FO PROD\salesXL.xla"
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Excel\Options"
oReg.Createkey HKEY_CURRENT_USER,strKeyPath
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"EXAddin",1
oReg.EnumValues HKEY_CURRENT_USER, strKeyPath,_
arrValueNames, arrValueTypes
n = 1
X = """" & AddIn_path & """"
For i=0 To UBound(arrValueNames)
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,arrValueNames(i),strValue
If (left(arrValueNames(i), 4) = "OPEN") Then
n = n +1
If strValue = x Then
'msgbox strValue
n = 0
Exit For
End If
End If
Next
If n <> 0 Then
n = n -1
If n = 0 Then
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"OPEN",x
Else
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,"OPEN" & n,x
End If
End If
