Acrobatのバージョン調べ

前に紹介した（気がする）PDFJを使ってCGIを作っているのですが、調子に乗ってFormにJavaScriptを使ったからなのか（PDFJでForm機能が使えるのは0.89以降のようです）今日、テストをお願いした相手から、Acrobatがエラー？でPDFを表示できない！との連絡を受けました。で、バージョンを見てもらったところ５!?だそうです。最近Acrobatも自動で更新するのでみんな同じぐらいのバージョンだと思っていましたが、５とは。そういえばバージョンアップなんてしてないわ。とのこと。日常見るPDFファイルといえば紙をスキャンして画像としてPDFに変換したものだけで、バージョン５でも見れているので気にしたことすらなかったらしいです。とりあえずAcrobatのバージョンアップをお願いして、その後音沙汰無いのでテストする時間がなかったのか問題なく使えているのかだと思います。で、現在はテストということでほんの数人にお願いしているだけですが、これを公開すると社内のいろんな人が使うようになって、当然同じ質問を浴びることになるでしょうし、事前にバージョンアップしておいてください。と言ってもやらないような人ばかり（うちの会社はこんなのばっかり、トラぶって初めて自分のやらかしたことに気づくんです）>_<。なので、そのページを見ようとしたときにAcrobatReader（AdobeReader）のバージョンを調べて古かったらAdobeのサイトに飛ぶように。ちゃんとバージョンを上げないと使えないようにしようと（我ながら親切なサイトですねぇ）ブラウザからプラグインのインストールとバージョンを調べる方法をググってみました。
ブラウザにプラグインは付き物でそれようの専用関数ぐらいあるやろ。と思っていたら大間違い！！。結構うろうろしました。
そのものズバリ書いてそうなページがhttp://hotwired.goo.ne.jp/webmonkey/99/39/index3a.htmlになります。３ページともみてから、PDFに置き換えて実行してみたのですが、検出されず！！！
いろんなサイト（日本語限定、私は英語読めますが雰囲気だけで読むのでできれば避けたい）をみたところ、バージョン５を検出するのにPDF.PdfCtrl.5と書いてあったので、PDF.PdfCtrl.7に（今入っているのは7.08なので）してみたのですが。検出されず。
でしょうがないのでWeb全体でググってみたところ、http://www.oreillynet.com/cs/user/view/cs_msg/9920にバージョン７からは別の名前としてAcroPDF.PDF.1だと書いてありました。で、変えてみたところやっとのことでちゃんと見つけてくれました。他にhttp://www.aspfree.com/c/a/Windows-Scripting/Detecting-Plugins-in-Internet-Explorer/4/なんかはVBScriptですがズバリ書いてあってそれを思いっきり参考にしました（今回は他にもVBScript使っている関係でIE限定）。これにVBScriptではOn Error Goto Labelを使えないらしいので、OnError Resume Next  とErr.Number<>0とOn Error Goto 0　でとりあえず動作が確認できているバージョン７じゃなければAdobeのサイトへ行くようにしました。
いちおうソース
On Error Resume Next
    IsObject(CreateObject("acroPDF.PDF"))'バージョン７以上
if(Err.Number<>0) then
msgbox("Acrobatが古いので次のページでバージョンを上げてから再挑戦してください")
location.href="http://www.adobe.com/jp/products/acrobat/readstep2.html"
end if
On Error Goto 0
'以下参考までに。バージョン５以上でよければ、５，６，７の全てをCreateObjectしてエラー値の積がゼロなら５以上が存在するとか、毎回if～Thenしても良いし。
'checkForAcroRead7 = (IsObject(CreateObject("acroPDF.PDF.1")))
'checkForAcroRead6 = (IsObject(CreateObject("PDF.PdfCtrl.6")))
'checkForAcroRead5 = (IsObject(CreateObject("PDF.PdfCtrl.5")))
'checkForAcroRead4 = (IsObject(CreateObject("PDF.PdfCtrl.4")))
'checkForAcroRead3 = (IsObject(CreateObject("PDF.PdfCtrl.1")))

参考ページにはJavaScriptでIEだけじゃなくNNとかでも使えそうなのが書いてあるのですが。今回はIE限定だし。まぁ良いかと。JavaScriptで書いてあるのをみると結構ごちゃごちゃして見えるので、ソースを覗く気にはならないかもしれないですね。