WAC 2009 がインストール済みなのに 2007.31005 に更新しようとして 0x80070643 エラーで失敗（解消）

※ 10/28 18:40 JST 時点で、この問題は解消された模様。フィードバックから 6 日。

Windows 10（ver 2004、他は未確認）に Windows Admin Center（WAC） 2009 をインストールしている PC で、Windows Update が「Windows Admin Center 2007.31005」をインストールしようとし出した。なぜか突然、今日になって（少なくとも 2020-10 B のときにはなかった）。新しいメジャー or マイナー バージョンなら来ることはあっても古いのが来ることはなかった。

案の定、失敗。エラーコードは 0x80070643。別の PC にインストールして再現させてみたり、アンインストールしてこないのを確認してから再インストールするとまた同じ状況に。（10/23 追記： 0x80070643 エラーなしで静かに消えていく場合もあるけど、昨日からそれを繰り返しているやつもある）

なんとなーく、Windows Update の詳細オプションの「更新プログラムのオプション」にある「Windows の更新時に他の Microsoft 製品の更新プログラムを受け取る」をオンからオフにしたらとりあえず失敗ループは解消（更新こなくなるから）。

最近、使ってなかったので、結局、やっぱり、WAC 2009 をアンインストール。他の Microsoft 製品の更新に影響するかもしれないし。次のが出たらまたインストールするかも。

追記）あれぇ？ ver 20H2 の 1 台でインストール成功したのがあるぞ？？？ うそです。更新履歴にあったのは 2020/08/25 の履歴だした。

追記）WAC 2009 インストール時に「Microsoft Update を使わない」（こっちが既定）じゃないほうを選択してインストールすると、「Windows の更新時に他の...」がオンになって、この状況を再現される。お向うさん（配信側）の問題かとも思って、仮想マシン環境に 10/23 JST 早朝新規インストールしたら、やっぱり再現した。エラーなしで終了するものもある。うそでした、エラーなしでインストール中 100％ までいって終了、何度も繰り返しているようです。

10/28 追記) WUA API で確認してみると、AutoSelectOnWebSites = False(0) なので、「更新プログラムのチェック」ボタンをクリックするとインストールされようとする。エラーの「再試行」ボタン＝「更新プログラムのチェック」ボタンなので、毎回失敗に見える。Silverlight はローカルにないのでスキップしてるけど、WAC は 2009 がインストールされていると 2007 って勘違いしてる感じ？

参考：checkforallupdate.vbs の中身

WScript.Echo "------------------------------"
WScript.Echo "Check for all updates"
WScript.Echo now
WScript.Echo "------------------------------"
Set updateSession = CreateObject("Microsoft.Update.Session")
Set updateSearcher = updateSession.CreateupdateSearcher()
Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software'")
For i = 0 To searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(i)
Next
WScript.Echo i & " updates found."
WScript.Echo ""
If searchResult.Updates.Count = 0 Then
  WScript.Echo "No updates"
Else
  For i = 0 To searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(i)
    WScript.Echo i + 1 & ")" & vbTab & update.Title
    WScript.Echo vbTab & "AutoSelectOnWebSites = " & update.AutoSelectOnWebSites
    WScript.Echo vbTab & "AutoSelection = " & update.AutoSelection
    WScript.Echo vbTab & "AutoDownload = " & update.AutoDownload
    WScript.Echo vbTab & "IsHidden = " & update.IsHidden
    WScript.Echo vbTab & "IsMandatory = " & update.IsMandatory
  Next
End If

10/28 18:40、再度確認したらこなくなった。