Thanks a lot, Konstantin. How can I pass information from the CustomAction (VBScript) code back to Wix?
Jirong -----Original Message----- From: Konstantin Vlasenko [mailto:konstantin.vlase...@gmail.com] Sent: Thursday, July 16, 2009 11:01 PM To: General discussion for Windows Installer XML toolset. Subject: Re: [WiX-users] How to pass parameters from Custom Action written in VBScript? Deferred custom action. Please read carefully this artical http://msdn.microsoft.com/en-us/library/aa370543(VS.85).aspx And see my example. <CustomAction Id="ShowInstallDir.SetProperty" Property="ShowInstallDir" Value="[INSTALLDIR]" /> <CustomAction Id="ShowInstallDir" Script="vbscript" Execute="deferred"> <![CDATA[ Dim property property = Session.Property("CustomActionData") MsgBox property ]]> </CustomAction> <InstallExecuteSequence> <Custom Action="ShowInstallDir.SetProperty" Before="InstallInitialize">NOT REMOVE="ALL"</Custom> <Custom Action="ShowInstallDir" Before="InstallFinalize">NOT REMOVE="ALL"</Custom> </InstallExecuteSequence> 2009/7/17 Jirong Hu <jirong...@gov.ab.ca> > Hi > > This is my first Custom Action, and I copied the code from here: > > http://n2.nabble.com/Re:-Creating-a-virtual-directory-under-a-web-site-(other-than-the-default)-(by-Mark-Jones)-td692909.html > > When I try to run this GetSites.vbs from Windows command line, I got an > error say "Object required on Session.Property("WebSitesList") = strRslt. If > run the msi file SFS.msi, I got an error like this in the log: > > Action 16:06:26: caGetWebSites. > Error 1720. There is a problem with this Windows Installer package. A > script required for this install to complete could not be run. Contact your > support personnel or package vendor. Custom action caGetWebSites script > error -2147467259, Msi API Error: Property,Name Line 13, Column 2, > MSI (s) (1C:4C) [16:06:32:531]: Product: SFS -- Error 1720. There is a > problem with this Windows Installer package. A script required for this > install to complete could not be run. Contact your support personnel or > package vendor. Custom action caGetWebSites script error -2147467259, Msi > API Error: Property,Name Line 13, Column 2, > > All my scripts are attached. Can someone also point me to some links tell > how to write Custom Action in VBScript? I try to get a list of existing IIS > web sites and display them in a Combo box in a dialog for the installer to > choose from. How can I pass the result of GetSites() into the dialog? > > --------------- GetSites.vbs ----------------- > Function GetSites() > Dim strRslt: strRslt = "" > Dim locatorObj: Set locatorObj = > CreateObject("WbemScripting.SWbemLocator") > Dim objProvider: Set objProvider = > locatorObj.ConnectServer("localhost", "root/MicrosoftIISv2") > Dim objServersCollection: Set objServersCollection = > objProvider.ExecQuery("SELECT Name, ServerComment FROM IIsWebServerSetting", > "WQL",&H30) > Dim oServer > For Each oServer In objServersCollection > 'strRslt = strRslt & oServer.Name & Chr(9) > & oServer.ServerComment & vbCrLf > strRslt = strRslt & oServer.ServerComment & > vbCrLf > Next > Session.Property("WebSitesList") = strRslt > Set objServersCollection = Nothing > Set objProvider = Nothing > Set locatorObj = Nothing > GetSites = 0 > Log (strRslt) > End Function > --------------- GetSites.vbs ----------------- > > ---------------install.wxs ---------------- > <CustomAction Id="caGetWebSites" > FileKey="GetSitesFile" > VBScriptCall="GetSites" > Execute="deferred" > Return="check" > HideTarget="no" > Impersonate="no" /> > <!-- > <Binary Id="GetSitesBin" > SourceFile="GetSites.vbs" /> > <CustomAction Id="caGetWebSites" > BinaryKey="GetSitesBin" VBScriptCall="GetSites" Execute="firstSequence" > Return="check" /> > --> > <InstallExecuteSequence> > <Custom > Action="caGetWebSites" Before="InstallFinalize">Not Installed</Custom> > </InstallExecuteSequence> > > ---------------install.wxs ---------------- > > > Thanks > Jirong Hu > Build Master > 780-644-5488 > > > This communication is intended for the use of the recipient to which it is > addressed, and may contain confidential, personal, and or privileged > information. Please contact us immediately if you are not the intended > recipient of this communication, and do not copy, distribute, or take action > relying on it. Any communication received in error, or subsequent reply, > should be deleted or destroyed. > > > ------------------------------------------------------------------------------ > Enter the BlackBerry Developer Challenge > This is your chance to win up to $100,000 in prizes! For a limited time, > vendors submitting new applications to BlackBerry App World(TM) will have > the opportunity to enter the BlackBerry Developer Challenge. See full prize > details at: http://p.sf.net/sfu/Challenge > _______________________________________________ > WiX-users mailing list > WiX-users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/wix-users > > -- Konstantin Vlasenko ------------------------------------------------------------------------------ Enter the BlackBerry Developer Challenge This is your chance to win up to $100,000 in prizes! For a limited time, vendors submitting new applications to BlackBerry App World(TM) will have the opportunity to enter the BlackBerry Developer Challenge. See full prize details at: http://p.sf.net/sfu/Challenge _______________________________________________ WiX-users mailing list WiX-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/wix-users This communication is intended for the use of the recipient to which it is addressed, and may contain confidential, personal, and or privileged information. Please contact us immediately if you are not the intended recipient of this communication, and do not copy, distribute, or take action relying on it. Any communication received in error, or subsequent reply, should be deleted or destroyed. ------------------------------------------------------------------------------ Enter the BlackBerry Developer Challenge This is your chance to win up to $100,000 in prizes! For a limited time, vendors submitting new applications to BlackBerry App World(TM) will have the opportunity to enter the BlackBerry Developer Challenge. See full prize details at: http://p.sf.net/sfu/Challenge _______________________________________________ WiX-users mailing list WiX-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/wix-users
