MSI 形式のアプリケーションの削除を行う: Win32_Product - WMI Sample (VB)

Topics

MSI ファイルでインストールされたアプリケーションの削除を行うサンプルプログラムです。
Win32_Product クラスを使用します。

VBS (WSH) 版のサンプルコードはこちらで公開しています。

Sample Code

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

Comment

実行するためにはあらかじめこちらのサンプルをまず実行しておくことをお勧めします。
今回のサンプルではアプリケーションの削除を行うため実行する前にあらかじめ Windows Installer Demo をインストールしておきましょう。
ポイントとなる部分は

Ret = Prd.Uninstall()

になります。
Reinstall メソッドを実行することで WQL で指定したアプリケーションの削除を行います。
詳細に関しては WMI SDK を参照してください。
なお WMI の使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShell を対象) に関しては、WMI Step も参考にしてみてください。(WMI 初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMI プログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。


WMI Fun !! > WMI Sample (VB) > MSI 形式のアプリケーションの削除を行う

WMI Fun !! > WMI Sample (VB) > MSI 形式のアプリケーションの削除を行う

MSI 形式のアプリケーションの削除を行う: Win32_Product - WMI Sample (VB)

Topics

Sample Code

Comment

Recommended book