『Windowsトラブル解決コマンド＆テクニック集』のスクリプト #2

拙著『ITプロフェッショナル向け Windowsトラブル解決コマンド＆テクニック集』に掲載のスクリプトに関するフォローアップ。

「7.3.2　更新の履歴」に Windows Update の更新履歴を表示する WSH スクリプト（WindowsUpdateHistory.vbs）を掲載していますが、本書では /D オプションについて触れてませんでした。/D オプションを付けると、詳細情報を表示します。また...


スクリプトの 33 と 43 行目 (P.165)、46 と 48 行目 (P.165-167) を次のように変更すると、エラー コードを表示するようにできます。

33｜      WScript.Echo "インストール状態: 失敗 (エラー: 0x" & Hex(objHistory.HResult) & ")"

43｜    If objHistory.HResult = 0 then
44｜      WScript.StdOut.Write " 成功 " & objHistory.Title
45｜    Else
46｜      WScript.StdOut.Write " 失敗 " & objHistory.Title & " (エラー: 0x" & Hex(objHistory.HResult) & ") "
47｜    End If
48｜    WScript.Echo 

ありゃ、日付がずれてる。たぶん、現在のスクリプトは UTC。これを JST にするには 29 と 42 行目 (P.165) を ...

29|    WScript.Echo "インストール日: " & DateAdd("h",9,objHistory.Date)
42|    WScript.StdOut.Write DateAdd("h",9,objHistory.Date)
（夏時間が導入されちゃったらダメだけど）

おまけ：

失敗した Windows Update だけをちゃちゃちゃって見たければ...

--- badhistory.vbs ---
Set objSession = CreateObject("Microsoft.Update.Session")
Set objSearcher = objSession.CreateUpdateSearcher
intCount = objSearcher.GetTotalHistoryCount
Set colHistory = objSearcher.QueryHistory(0, intCount)
For Each objHistory In colHistory
  If objHistory.HResult = 0 then    'インストール成功
  '  WScript.Echo DateAdd("h",9,objHistory.Date) & ", " & objHistory.Title & ", 成功"
  Else
    WScript.Echo DateAdd("h",9,objHistory.Date) & ", " & objHistory.Title & ", 失敗(0x" & Hex(objHistory.HResult) & ")"
  End If
Next
---

C:\work> cscript badhistory.vbs //NOLOGO
2019/01/09 07:47:44, Microsoft Outlook 2013 (KB4461595) 32 ビット版 のセキュリティ更新プログラム, 失敗(0x80070652)
2019/01/09 07:47:16, Microsoft Office 2013 (KB3172522) 32 ビット版 のセキュリティ更新プログラム, 失敗(0x80070652)
2018/12/06 07:38:23, 2018-11 x64 ベース システム用 Windows 10 Version 1809 の累積更新プログラム (KB4469342), 失敗(0x8024200D)
2018/11/30 06:27:44, 9NMPJ99VJBWV-Microsoft.YourPhone, 失敗(0x80240034)
C:\work>

関連:
『Windowsトラブル解決コマンド＆テクニック集』のスクリプト (2018/10/23)

  ITプロフェッショナル向け
Windowsトラブル解決コマンド＆テクニック集

価格　　2,700円（税込）
ISBN　 978-4-8222-5381-3
発行日　2018年10月16日
著者名　山内 和朗（山市 良） 著
発行社　日経BP社
判型等　B5変/264ページ

日経BPブックナビ
https://www.nikkeibp.co.jp/atclpubmkt/book/18/P53810/
オンラインストア
amazon.co.jp ｜ Rakutenブックス