Hi All,
I am working on the ASAP Utilities Excel add In 4.2.10 using Radia. The application is not taking the license keys even after writing scripts. Has anyone had a similar issue.
I used
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\VB and VBA Program Settings\ASAP Utilities\setup"
strValueName1 = "InstallPath"
strValue1 = "C:\\Program Files\\ASAP Utilities\\"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName1,strValue1
strValueName2 = "lNumberedMenuItems"
strValue2 = ""
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName2,strValue2
strValueName3 = "lAutoSetupDone"
strValue3 = ""
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName3,strValue3

strValueName4 = "CustomMenuPath"
strValue4 = "C:\\Documents and Settings\\Administrator\\Application Data\\ASAP Utilities\\"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName4,strValue4

strValueName5 = "sInstallPath"
strValue5 = "C:\\Program Files\\ASAP Utilities"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName5,strValue5

======================
I am getting this error
The location of you favourites menu is not accesible now or the file does not exist here.
(c:\\documents and setting\\administrator\\Application Data\\ASAP Utilities\\custommenu.ini)
Would you like to update your location?
======================

Can anyone please help me with this, This is a ASAP Issue..
Any help is appreciated.

Thanks a Lot in advance.
0 Comments   [ + ] Show Comments

Comments

Please log in to comment

Community Chosen Answer

1
Radia uses the local System account for deployment.

To populate the actual logged-in user's registry, you'll need to use either Active Setup or, if the package is in MSI format (or maybe an EXE which extracts and executes an MSI), add a new user-level feature as a parent of an existing feature which contains an advertised entry-point (e.g. an advertised shortcut) and use self-healing to populate the registry keys.

EDIT:
This forum deals with errors returned by the Windows Installer engine (see the link 'MSI Errors' for details) and not problems with packaging. You ought to have posted in the 'Package Development' forum.
Answered 09/26/2011 by: VBScab
Red Belt

Please log in to comment
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.

Answers

0
Thanks for the reply. If I need to use Active setup wont I need the Product code or GUID. In radia, when re-packaging, we dont get our MSI. It creates a MSI and deploys directly unlike SCCM,so how can I get a GUID for it.
Can you brief more on Advertised Shortcut.
I am all new to the Forum so sorry to have posted in wrong location. And I'm new to Packaging too.
I tried using this active setup too, please let me know If i am wrong in the script, I tried giving the app name for the GUID. This does not work either.
================================
Dim Count
Const HKEY_LOCAL_MACHINE = &H80000002
strGUID="ASAP Utilities"
strVersion="1,0,0,1"
strComputer ="."

strHKCUkey="REG ADD HKCU\Software\VB and VBA Program Settings\ASAP Utilities\setup\MyActiveSetup /v InstallPath /t REG_SZ /d C:\Program Files\ASAP Utilities\"
AddKey strHKCUkey

strHKCUkey="REG ADD HKCU\Software\VB and VBA Program Settings\ASAP Utilities\setup\MyActiveSetup /v lNumberedMenuItems /t REG_SZ /d "
AddKey strHKCUkey

strHKCUkey="REG ADD HKCU\Software\VB and VBA Program Settings\ASAP Utilities\setup\MyActiveSetup /v lAutoSetupDone /t REG_SZ /d "
AddKey strHKCUkey

strHKCUkey="REG ADD HKCU\Software\VB and VBA Program Settings\ASAP Utilities\setup\MyActiveSetup /v CustomMenuPath /t REG_SZ /d ^%USERPROFILE%^\Application Data\ASAP Utilities\"
AddKey strHKCUkey

strHKCUkey="REG ADD HKCU\Software\VB and VBA Program Settings\ASAP Utilities\setup\MyActiveSetup /v sInstallPath /t REG_SZ /d C:\Program Files\ASAP Utilities"
AddKey strHKCUkey
strHKCUkey="REG ADD HKCU\Software\VB and VBA Program Settings\ASAP Utilities\setup\MyActiveSetup /v name /t REG_SZ /d "
AddKey strHKCUkey

wscript.quit



sub AddKey(strHKCUkey)

count = count + 1
strGUIDx=strGUID&count

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Active Setup\Installed Components\"&strGUIDx
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

strValueName = ""
strValue = strDefault
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "StubPath"
strValue = strHKCUkey
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "Version"
strValue = strVersion
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName = "ComponentID"
strValue = "MyActiveSetup"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

end sub
=================================

Thanks in advance.
Answered 09/26/2011 by: shamu99
Fifth Degree Brown Belt

Please log in to comment
0
I'm new to Packaging tooClearly (no offence intended!)

I'm afraid I don't have time to give you a step-by-step tutorial. Before you do anything else, read and digest Phil Wilson's The Definitive Guide to Windows Installer. Then read up on Active Setup (AS) and how it works.

For user profile stuff, I prefer self-healing because it's not a one-off hit, unlike AS, but it is a little more complex to get your head round.
Answered 09/27/2011 by: VBScab
Red Belt

Please log in to comment
0
Thanks a lot for your reply. This seems to be User specific, tried all possible scripts, I keep getting that error. The custom path varies for each user. It asks if you want to update, If I say ok. It then gives the registered version, and opening the app the next time gives the error again.. Will definetely read Phil Wilson's The Definitive Guide..

Thanks!!
Answered 09/27/2011 by: shamu99
Fifth Degree Brown Belt

Please log in to comment
Answer this question or Comment on this question for clarity