Dim s
   s = ""   ' 必要な情報から文字列を組み立てます。
   s = ScriptEngine & " EngineVersion "
   s = s & ScriptEngineMajorVersion & "."
   s = s & ScriptEngineMinorVersion & "."
   s = s & ScriptEngineBuildVersion
   document.write s   ' 結果を返します。