[VBS] PC起動時にレジストリからインストールパスを取得し、アップデートパッチを実行する処理

※当サイトでは広告を掲載しています

元号が平成から令和になり、会社で使用しているとあるアプリに、令和対応アップデータが公開されていました。

当然、このアップデータをインストールしないと令和表示ができないので、インストールしなければいけないのですが…何十台ものPCに手動でアップデートするのは正直しんどい。

そこで、以前組んだ「ネットワーク越しにスタートアップファイルを入れ替える」処理を応用して、各クライアントPCの起動時にインストール処理を動かして、各自でインストールしてもらう方法にしてみました。

その手順をめもめも。

ちなみに、ネットワーク越しにスタートアップファイルを入れ替える処理は以下の記事で紹介しています。

[VBS] ネットワーク越しにスタートアップファイルを入れ替える
以前、HomeエディションのWindowsで、ログオンスクリプトの代用となるような処理をまとめて記事にしました。 このときは、「\192.168.1.1\logon_scripts」に、各PCが起動時に実行するVBSおよびバッチファイルを...

まずは大前提

ネットワーク越しにスタートアップファイルを入れ替える処理のときと同様、ログオンスクリプト代わりのVBSが、既に各クライアントPCのスタートアップに置いてあり、サーバ上のバッチファイル「logon_scripts.bat」を実行できていることが前提です。

各クライアントPCが、起動時にサーバ上のバッチファイルを実行できる状態に無ければ、「VBSをログオンスクリプトの代用に」の記事のように設定・設置してください。

[VBS] VBSをログオンスクリプトの代用に
会社内で使用しているPCのOSは、95%がドメインに参加できないエディションのWindowsなので、全てのPCの設定を変更する場合は、1台1台設定して回らないといけないのです。とても大変。 かといって、各自でPCの設定を変更してね、というの...

アップデータを実行するVBS

アップデータを各クライアントPCにコピーすれば、PC起動時に自動でアップデータが起動しますが、この方法だとPCを起動するたびに毎回インストールが始まってしまいますので、却下。

また、全てのPCにアプリがインストールされている訳ではないので、アプリがインストールされていたらアップデータを実行する、という処理が必要。

インストールされているか確認

ということで、まずはレジストリを参照して、アプリがインストールされているか確認。割と決め打ちです。

Set objShell = CreateObject( "WScript.Shell" )
strExePath = objShell.RegRead( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\APPLICATION.exe\" )

インストーラからインストールしたアプリの実行ファイルは、ファイル名だけで実行されるように、レジストリに登録されるようです。それを応用した確認方法です。

アプリがインストールされていれば、strExePathにインストール先フルパスが返ってきます。インストールされていなければ空なので、IsEmpty()で判断できます。

アプリのバージョンを取得

アプリの製作者がきちんと実行ファイルのバージョン情報を更新してくれていれば、実行ファイルのバージョン情報を取得して最新かどうか判別できます。

Set objFS = CreateObject( "Scripting.FileSystemObject" )
strVersion = objFS.GetFileVersion( strExePath )

最新版のバージョンとstrVersionの値を文字列比較して、違っていたらインストーラを実行させればいいですね。

残念なことに、今回アップデートしようとしたアプリは「令和対応」させるだけのアップデートなので、実行ファイルのバージョンが更新されていなかったため、この方法は使えず。

仕方がないので、実行ファイルの更新日時で比較することにしました。

まず、1台のPCに手動でアップデートをインストールし、実行ファイル一式の更新日時を確認します。幸い、新旧実行ファイルで更新日時が違っていたので、決め打ちで判断できました。

strExeDate = Left( objFS.GetFile( strExePath ).DateLastModified, 4 )
If strExeDate = "2019" Then
    MsgBox "すでに更新されています。", vbInformation + vbSystemModal, "お知らせ"
    WScript.Quit(0)
End If

アップデート前の実行ファイルが2018年のものだったので、先頭4桁(西暦部分)だけで判断しています。

アプリをサーバからコピーし実行

ここまでくれば、あとはアップデータをコピー(ダウンロード)して実行するだけ。コピー先は、ローカルPCのテンポラリフォルダにしています。

strFilePathFrom = "サーバにおいてあるアップデータまでのフルパス"
strFilePathTo = objFS.GetSpecialFolder(2).Path & "\アップデータのファイル名"
Call objFS.CopyFile( strFilePathFrom, strFilePathTo )
iReturn = objShell.Run( strFilePathTo, 1, True )

CopyFile()でサーバからローカルにアップデータをコピーし、Run()でアップデータを実行します。Run()のパラメータは、1番目が実行ファイルフルパス、2番目がウィンドウスタイル(1はアクティブ表示)、3番目がアップデータの終了を待つ指示(Falseだと待たない)。

処理的にはこれでアップデータが一度だけ(もし途中で失敗していたら成功するまで)実行されます。

処理の一連の流れ

ということで、エラー処理も含めた一連の流れはこんな感じ。

Option Explicit

Dim objFS, objShell
Dim strFilePathFrom, strFilePathTo, strExePath, strExeDate
Dim iCount, iReturn

'エラー発生時にも処理を続行するよう設定
On Error Resume Next

'ファイルシステムを扱うオブジェクトを作成
Set objFS = CreateObject( "Scripting.FileSystemObject" )
Set objShell = CreateObject( "WScript.Shell" )

'アプリのインストール先を確認する
strExePath = objShell.RegRead( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\アプリの実行ファイル名\" )
If IsEmpty( strExePath ) Then
    'エラー処理
    WScript.Quit(-1)
End If

'アップデート対象ファイルの更新日時を取得する
strExeDate = Left( objFS.GetFile( strExePath ).DateLastModified, 4 )
If strExeDate = "2019" Then
    WScript.Quit(0)
End If

'アップデート処理を行うメッセージを出力する
MsgBox "[アプリ名]のアップデートを行います。", vbInformation + vbSystemModal, "お知らせ"

'コピーファイルのパスを指定
strFilePathFrom = "サーバに置いてあるアップデータの実行ファイルフルパス"
strFilePathTo   = objFS.GetSpecialFolder(2).Path & "\アップデータの実行ファイル名"

'ファイルを上書きコピー
Call objFS.CopyFile( strFilePathFrom, strFilePathTo )

'元ファイルが無いなど、エラーになった場合の処理
If Err.Number <> 0 Then
    'エラー処理
    WScript.Quit(-1)
End If

'ファイルコピーを待つ
iCount = 0
Do While objFS.FileExists( strFilePathTo ) = False
    iCount = iCount + 1
    WScript.Sleep 500
    '30秒待ってもコピーが終わらない場合はエラー終了する
    If iCount >= 60 Then
        'エラー処理
        WScript.Quit(-1)
    End If
Loop

'ファイルを実行する
iReturn = objShell.Run( strFilePathTo, 1, True )

'ファイル実行時、エラーになった場合の処理
If iReturn <> 0 Then
    'エラー処理
    WScript.Quit(-1)
End If

'「On Error Resume Next」を解除
On Error Goto 0

Set objShell = Nothing
Set objFS = Nothing

WScript.Quit(-1)

今回インストールするアップデータは、途中で処理を中断しても正常終了として戻ってきてしまうため、正常に終了した場合でもVBS側からは異常終了としています。

こうすることで、アップデータをインストールしないで終了した場合は、再度インストール処理を。きちんとインストール処理が完了していれば、ファイルの更新日時が変わっているので正常終了する、という動きになるからです。

そして、このVBSの呼び元で、正常終了で戻ってきたらインストール完了とするフラグを立てる、と。

決め打ちが多いのが難点

本来はもっと柔軟に対応できるような作りをすべきですが、今回は割と時間がない中で処理を作り、テストし、実行する必要があったので、決め打ちしているところがだいぶ多いです。

でも、こんな処理でも何かの参考になれば、ということで。

初稿:2019年5月13日

コメント

タイトルとURLをコピーしました