MSI でインストールされたアプリケーションの取得する: Win32_Product - WMI Sample (VB)

Private Sub Command1_Click()

Dim PrdSet As SWbemObjectSet
Dim Prd As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer

Set PrdSet = Service.ExecQuery _
("Select * From Win32_Product")

For Each Prd In PrdSet
MesStr = MesStr & "ソフト名: " & Prd.Name & vbTab & _
"インストール日時: " & Prd.InstallDate & vbCrLf
Next

MsgBox "MSI でインストールされたアプリは、" & _
vbCrLf & vbCrLf & MesStr & vbCrLf & "ですよ。"

Set PrdSet = Nothing
Set Prd = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub