WindowsUpdateをオフラインで適用したい

1.前段

wsusscn2.cabをダウンロード

下記のリンクからCABファイルをDLしてくる。

このファイルで確認できるKB番号は原則としてその時点で公開されている更新ファイル一覧になる。
このファイルが更新されるのは毎月第二週水曜日（米国時間の火曜日）になるのでそのタイミングでDLする。

2.VBスクリプトの作成

下記のプログラムソースコピペし、VBスクリプトを作成する。
プログラムソースはMicrosoftのリンクにも原本が載っている

WUA を使用したオフライン更新プログラムのスキャン
https://learn.microsoft.com/ja-jp/windows/win32/wua_sdk/using-wua-to-scan-for-updates-offline

4行目のパスの部分はwsusscn2.cabファイルの置いた場所によって適宜変更する。

Check_UpdateList.vbs

Set UpdateSession = CreateObject("Microsoft.Update.Session")
Set UpdateServiceManager = CreateObject("Microsoft.Update.ServiceManager")
Set UpdateService = UpdateServiceManager.AddScanPackageService("Offline Sync Service", "c:\wsusscn2.cab")
Set UpdateSearcher = UpdateSession.CreateUpdateSearcher()

WScript.Echo "Searching for updates..." & vbCRLF

UpdateSearcher.ServerSelection = 3 ' ssOthers

UpdateSearcher.ServiceID = UpdateService.ServiceID

Set SearchResult = UpdateSearcher.Search("IsInstalled=0")

Set Updates = SearchResult.Updates

If searchResult.Updates.Count = 0 Then
    WScript.Echo "There are no applicable updates."
    WScript.Quit
End If

WScript.Echo "List of applicable items on the machine when using wssuscan.cab:" & vbCRLF

For I = 0 to searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    WScript.Echo I + 1 & "> " & update.Title
Next

WScript.Quit

3.当該ファイルを対象コンピュータへ置く

4.コマンドの実行

Command

cscripts Check_UpdateList.vbs

5.KBファイルの検索とダウンロード

出力されたKB番号を以下Windows Update カタログにて検索し、ダウンロードする

あとは実行するればおｋ

6.エラーで結果が出ない！

サービス(Serveces.msc)起動させ、WindowsUpdateサービスを停止させる。
スクリプトを実行させる。