On Error Resume Next
Dim sTxt
  sTxt=       "ENGINE: " & ScriptEngine() & vbCrLf
  sTxt= sTxt& "  Version: " & ScriptEngineMajorVersion()
  sTxt= sTxt& "." + CStr(ScriptEngineMinorVersion()) & vbCrLf
  sTxt= sTxt& "  Build: " + CStr(ScriptEngineBuildVersion()) & vbCrLf
  sTxt= sTxt& "HOST: " + WScript.Name & vbCrLf
  sTxt= sTxt& "  Version: " + Wscript.Version & vbCrLf
  sTxt= sTxt& "  Build: " + CStr(WScript.BuildVersion) & vbCrLf
  
  WScript.Echo sTxt