64Bit版Windowsにインストールされているアプリケーション一覧をスクリプトで取得する

久しぶりのVBスクリプトです。 Windows7用にインストールされたアプリケーションを取得するスクリプトを作っていて、アプリケーション一覧が上手く取得出来なかったのですが、レジストリ値を調べてみたところ64Bit版OSの場合は参照しなくてはならないレジストリ値が2箇所あるようでした。 手抜きですが、一覧取得出来るスクリプトを作ってみました。 64 ビット バージョンの Windows でシステム レジストリを表示する方法

[ryuhakurihi]

“ '64bit OS用 strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall" retval = refRegistry.EnumKey(HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys) If isNull(arrSubKeys) = False Then For each SubKey in arrSubKeys retval = refRegistry.GetStringValue (HKEY_LOCAL_MACHINE,strKeyPath &