MSI 形式のアプリケーションのインストールを行う: Win32_Product - WMI Sample (VB)

Topics

MSI アプリケーションのインストールを行います。
Win32_Product クラスを使用します。

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

Sample Code

Private Sub Command1_Click()

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 Prd = Service.Get("Win32_Product")

Ret = Prd.Install("c:\setup.msi", , True)

If Ret = 0 Then
MsgBox "インストールを終了しました。"
Else
MsgBox "インストールに失敗しました。"
End If

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

End Sub

Comment

実行するためにはテスト用の MSI ファイルが必要になります。こちらにテスト用の MSI ファイルを用意しておきましたので使ってみてください。
今回キーになるのが、

Ret = Prd.Install("c:\setup.msi", , True)

の部分になります。第 1 引数には MSI ファイルのパスを指定します。第 2 引数にはインストール時のオプションを指定するわけなのですが今回テストで用意した物にはオプションがありません。第 3 引数にはインストールの際に作成するショートカットを全てのユーザに反映すべきかどうか設定します。True で反映することになります。
なお 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