Find version number of the scripting engine

‘*****************
‘ Desciption
‘ Find the version number of the scripting engine

‘*****************
Dim s, app
Set app = CreateObject(“QuickTest.Application”)

s = “” ‘ Build string with necessary info.
s = ScriptEngine & ” Version “
s = s & ScriptEngineMajorVersion & “.”
s = s & ScriptEngineMinorVersion & “.”
s = s & ScriptEngineBuildVersion
msgbox s ‘ Return the results.