[VBScript] インストール済みアプリケーションの一覧を取得する

この記事は2年以上前の投稿になります。
記載された情報が古くなっている可能性がございますので十分ご注意ください。

WMI の Win32_Product クラスでこんな情報も取得できます。
こちらも、前回のログインユーザ名と同様に、Windows7(64bit)でも正しく取得できました。

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set instApps = objWMIService.ExecQuery("Select * from Win32_Product")

For Each objApp in instApps
	WScript.Echo objApp.Caption & " : " & objApp.Version
Next