...pudding - diary

この日記は https://yapud.hatenablog.com/ に引っ越し中


2015-07-24

_ [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 と返事してくれるから面倒。


2015年
7月
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
Twitter : @moriya_jp