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 Ret As Long
Dim PID As Long
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer()
Set PrdSet = Service.ExecQuery _
("Select * From Win32_Product Where name = 'MSI Install Demo'")

For Each Prd In PrdSet

Ret = Prd.Uninstall()

Next

If Ret = 0 Then
MsgBox "削除を終了しました。"
Else
MsgBox "削除に失敗しました。"
End If

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

End Sub