Windows
インターネットエクスプローラーを自動アップデートしないよう設定を施す。
はち
更新日:2021/08/11
Windowsを使っていて月1回のWindowsUpdateのタイミングでIEが勝手にアップデートされてしま事が多々あります。
社内のシステムによってIEのバージョンが決められている事がよくあるので、わざわざバージョンを戻すのに時間的コストが結構かかります。
VBスクリプトとWIN32APIを使ってIEのアップデートを勝手におこなわれないようにしましょう。
※スクリプトは、Admin権限で実行する必要があります。
|
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 |
Set wmi = GetObject("winmgmts:\\.\root\cimv2") Set os = wmi.ExecQuery ("SELECT * FROM Win32_OperatingSystem") Set objShell = WScript.CreateObject("WScript.Shell") set objApp = Wscript.CreateObject("Shell.Application") ''UAC-権限の昇格させる------------- ------------- If WScript.Arguments.length = 0 Then For Each value in os '実行パスと作業フォルダのセット cmd = """" & WScript.ScriptFullName & """" & " """ & objShell.CurrentDirectory & """" 'vista以降の場合、管理者権限で再実行する If left(value.Version, 3) >= 6.0 Then objApp.ShellExecute "cscript.exe",cmd,"","runas" wscript.quit End If Next else CurrentDir = WScript.Arguments(0) end if '設定----------------- wscript.echo "処理中..." 'アップデートブロックの処理呼び出し call Block(9) call Block(10) call Block(11) msgbox "処理が完了しました。" |
アップデーター無効にする処理を作成
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
sub Block(IEVersion) dim Key,value key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Setup\" & IEVersion & ".0" value = "DoNotAllowIE" & IEVersion Set objShell = WScript.CreateObject("WScript.Shell") call objShell.run("reg add """ & key & """ /v " & value & " /t REG_DWORD /d ""1"" /f") wscript.echo IEVersion + "バージョンの自動更新を無効にしました。" end sub |
以上でIEの自動バージョンアップ阻止できます。
勝手にバージョンアップされる悩みから解消されましょう！
