Forum Discussion

carl_nagle's avatar
carl_nagle
New Contributor
11 years ago

TC/TE VBScript Runtime Version information

Any info on the following scenario would be appreciated. We need our VBScript libraries to be able to know and route according to the version of TestComplete or TestExecute running.  Are there ...
  • AlexKaras's avatar
    AlexKaras
    11 years ago
    Hi Carl,



    What about this code snippet (untested, off top of my head):

    Set p = Sys.WaitProcess("TestComplete", 500)

    If (p.Exists) Then _

      Call Log.Message("TC detected")



    Set p = Sys.WaitProcess("TestExecute", 500)

    If (p.Exists) Then _

      Call Log.Message("TE detected")



    If (Not p.Exists) Then _

      Call Log.Warning("Neither TC nor TE was detected")



    iVerMajor = aqConvert.VarToInt(p.FileVersionInfo.MajorPart)

    Call Log.Message(aqString.Format("Major version # is: %i", iVerMajor))

carl_nagle's avatar
carl_nagle
New Contributor
11 years ago
With locally necessary changes, your "off the top of my head" code worked for me:



Dim p, iVerMajor, iVerMinor    

    Set p = Sys.WaitProcess("TestComplete", 500)

    If (p.Exists) Then

        SAFSDEBUG "TCAFS sees TestComplete running!", DEBUG_INFO

    else

        Set p = Sys.WaitProcess("TestExecute", 500)

        If (p.Exists) Then _

            SAFSDEBUG "TCAFS sees TestExecute running!", DEBUG_INFO

    end if

    if (p.Exists) then

        iVerMajor = aqConvert.VarToInt(p.FileVersionInfo.MajorPart)

        iVerMinor = aqConvert.VarToInt(p.FileVersionInfo.MinorPart)

        SAFSDEBUG "TCAFS sees "& aqString.Format("Version # is: %i.%i", iVerMajor, iVerMinor), DEBUG_INFO

    end if



Thank you VERY much for your time!



I had started down the COM route, but now I don't have to.



Carl Nagle

SAS Research and Development

Planning, Operations and Strategy

General Applications and Tools