vbsで、インストールされているExcelのバージョンとbit数を取得したいがエラーがでる

Question

vbsで、インストールされているoffice 又は Excelのバージョンとbit数を取得したいのですが、上手くいきません。
Option Explicit

    Dim fso, wss, cmdline, result
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set wss = CreateObject("WScript.Shell")
    cmdline = Mid(fso.OpenTextFile(WScript.ScriptFullName).ReadLine, 2)
    result = wss.Exec(cmdline).StdOut.ReadAll　←　result　で指定されたﾌｧｲﾙが見つからないとでます。
   WScript.Echo result

宜しくおねがいします。

Comments

[y_waiwai]

Execの行で実行を止めたとき、cmdlineには何が入ってるんでしょうか

[jinoji]

https://teratail.com/questions/318356
の回答を参考にされたのだと思いますが、
このコードはちょっと癖のある書き方になっています。
というのも、コード1行目に、コメントのような顔で書かれている
'wmic product where "Name like '%%Office%%'" get name,version
が肝心な部分なのです。
ここの「wmic product where "Name like '%%Office%%'" get name,version」という文字列が
cmdline に入る仕組みになっています。