home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 February / PCWELT_02_2003.ISO / pcwsoft / Script-Tut.exe / scripts / version.vbs < prev    next >
Encoding:
Text File  |  2001-01-17  |  296 b   |  12 lines
  1. MsgBox GetScriptEngineInfo, ,"Version"
  2.  
  3. Function GetScriptEngineInfo
  4.    Dim s
  5.    s = ""   
  6.    s = ScriptEngine & " Version "
  7.    s = s & ScriptEngineMajorVersion & "."
  8.    s = s & ScriptEngineMinorVersion & "."
  9.    s = s & ScriptEngineBuildVersion
  10.    GetScriptEngineInfo = s
  11. End Function
  12.