Workflow Soluiton

 View Only

Evaluating WISE - need custom action scripting help

  • 1.  Evaluating WISE - need custom action scripting help

    Posted Mar 16, 2011 03:57 PM

    Hi Everyone,

    I am in the process of evaluating WISE as a replacement for InstallShield and need help with converting an InstallShield script to a WISE script.

    Here is the installshield script:

     

    /--------------------------------------------------------------------------- // OnBegin // // The OnBegin event is called directly by the framework after the setup // initializes. //--------------------------------------------------------------------------- function OnBegin()  STRING szKey, szName, szValue;     STRING svResult, svPath, svVersionNumber;    NUMBER nvResult, nvType, nvSize; begin  

        // Set the root key.     RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);           // Make sure Office is installed     if ((RegDBKeyExist ("\\Software\\Microsoft\\Office\\12.0\\Excel") < 0) &&         (RegDBKeyExist ("\\Software\\Microsoft\\Office\\14.0\\Excel") < 0)) then         MessageBox ("Microsoft Excel 2007 or higher must be installed first", SEVERE);         abort;     endif;      nvType = REGDB_STRING;  szKey = "\\Software\\Microsoft\\Office\\14.0\\Excel\\InstallRoot";  szName = "Path";  if (RegDBGetKeyValueEx (szKey, szName, nvType, szValue, nvSize) < 0) then   szKey = "\\Software\\Microsoft\\Office\\12.0\\Excel\\InstallRoot";   szName = "Path";   if (RegDBGetKeyValueEx (szKey, szName, nvType, szValue, nvSize) < 0) then          MessageBox ("Unable to get Microsoft Office installation path", SEVERE);          abort;   endif;  endif;     FeatureSetTarget(MEDIA, "<LIBRARYDIR>", szValue ^ "\\Library\\Wisard");

        // Make sure the Rdb ODBC driver is installed     nvResult = VerFindFileVersion("sqrdb3.dll", svPath, svVersionNumber);   if (nvResult = FILE_NOT_FOUND) then         MessageBox ("Oracle Rdb ODBC Driver version 3.3.1.0 or higher must be installed first", SEVERE);         abort;     endif;            nvResult = VerCompare("3.3.1.0", svVersionNumber, VERSION);        if (nvResult = GREATER_THAN) then         MessageBox ("Oracle Rdb ODBC Driver version 3.3.1.0 or higher must be installed first", SEVERE);         abort;     endif;    

    end; 

     

    Can anyone help me with what the equivalent WISE script would be? WHere in the sequence should it go?

    Thank You,

    Tracy