...pudding - diary

_ [Software] Windows10 無償アップグレード抑止をNotesのボタンで

めっちゃニッチな話ですが、Windows10 無償アップグレード抑止のためのレジストリ書き込みを IBM Notes のボタンで実行するにはどうしたらいいのかっていう話。

Dim objShellApp
Set objShellApp = CreateObject("Shell.Application")
objShellApp.ShellExecute "reg", _
"ADD ""HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate"" " & _
"/v DisableOSUpgrade /t REG_DWORD /d 00000001 /f","","runas",0

ってところでしょうかね。

上記スクリーンショットのところのコードでOSのBit数判断してるのは、reg コマンドのオプションに bit数指定を付けるため。

Windows の IBM Notes クライアントは 32bit アプリなので、64bit Windows で何も考えずに IBM Notes から reg コマンド呼び出したら、32bit から見える側しか操作しない(OSが見てる側を操作しない) ので、64bit OS で動かしてるときは 64bit の方だよ！というのを明示的に教えてあげる必要があります、ていうような話。

64bit OS 上の 32bit アプリから環境変数 PROCESSOR_ARCHITECTURE を参照するとしっかり 32bit と返事してくれるから面倒。