HOME
  Security
   Software
    Hardware
  
FPGA
  CPU
   Android
    Raspberry Pi
  
nLite
  etc.
   ALL
    LINK
  
English Translate 中文翻訳
BACK
 

[NEW] 2016/05/30

Windows 7のスパイパッチの更新プログラムを簡単に非表示にするアプリ Windows 7のスパイパッチの更新プログラムを簡単に非表示にするアプリ

(Hide Windows 7/8/8.1 spy patch updates Application)

Tags: [Windows], [無人インストール]








● Windows 7のスパイパッチの更新プログラムを簡単に非表示にするアプリ

ウィンドウズのスパイパッチを非表示にする
Hidden Spy Patch Windows Update programs

GitHub - FREEWING-JP/Windows7_Hide_Spy_Patch

エクスプローラーから
hide_spyware.vbs
を右クリックで「コマンドプロンプトで開く」を選択、
許可ダイアログが出たら「はい」を押して実行する。

hide_spyware.vbs をダウンロード
'===============================================
' ファイル名 hide_spyware.vbs
' Shift-JISで保存する
'
' ウィンドウズのスパイパッチを非表示にする 2016/07版
' Hidden Spy Patch Windows Update programs
' http://www.neko.ne.jp/~freewing/
' Copyright (c)2016 FREE WING, Y.Sakamoto
'
' エクスプローラーから
' hide_spyware.vbs
' を右クリックで「コマンドプロンプトで開く」を選択、
' 許可ダイアログが出たら「はい」を押して実行する。
'
' Base program Searching, Downloading, and Installing Updates
' https://msdn.microsoft.com/en-us/library/aa387102.aspx
'===============================================
' UAC Permission elevation from VBScript
' http://stackoverflow.com/questions/13296281/permission-elevation-from-vbscript
'===============================================
Dim OSList, OS, UAC
UAC = False
If WScript.Arguments.Count >= 1 Then
    If WScript.Arguments.Item(0) = "elevated" Then UAC = True
End If

If Not(UAC) Then
    Set OSList = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    For Each OS In OSList
        If InStr(1, OS.Caption, "XP") = 0 And InStr(1, OS.Caption, "Server 2003") = 0 Then
            CreateObject("Shell.Application").ShellExecute "cscript.exe", """" & WScript.ScriptFullName & """ elevated" , "", "runas", 1
            WScript.Quit
        End If
    Next
End If

' 下記の更新プログラムは非表示にしない。

' 下記の更新プログラムを非表示にする。
spyListStr = "" _
  & "2876229:Microsoft Update 用 Skype" _
  & ",2506928:Outlook で開いた .html ファイルのリンクが機能しない" _
  & ",2545698:一部のコア フォントのテキストがぼやけて表示される" _
  & ",2660075:the time zone is set to Samoa (UTC+13:00) and KB 2657025" _
  & ",2726535:国のリストに南スーダンを追加する" _
  & ",2970228:ロシア ルーブルの新しい通貨記号をサポート" _
  & ",2592687:リモート デスクトップ関係 RDP 8.0用" _
  & ",2923545:リモート デスクトップ関係 RDP 8.1用" _
  & ",2994023:リモート デスクトップ関係 RDP 8.1用修正" _
  & ",2952664:Win10アップグレード関係" _
  & ",2990214:Win10アップグレード関係" _
  & ",3035583:Win10アップグレード関係" _
  & ",3123862:GWX 2016/02 Get Windows 10 Win10アップグレード関係" _
  & ",3021917:CEIP&テレメトリ(遠隔情報収集)関連" _
  & ",3022345:テレメトリ関連" _
  & ",3068708:テレメトリ関連" _
  & ",3075249:テレメトリ関連" _
  & ",3080149:テレメトリ関連" _
  & ",3050265:WUC 2015/06 Windows Update Client" _
  & ",3065987:WUC 2015/07 Windows Update Client" _
  & ",3075851:WUC 2015/08 Windows Update Client" _
  & ",3083324:WUC 2015/09 Windows Update Client" _
  & ",3083710:WUC 2015/10 Windows Update Client" _
  & ",3102810:WUC 2015/11 Windows Update Client 7.6.7601.19046" _
  & ",3112343:WUC 2015/12 Windows Update Client 7.6.7601.19077" _
  & ",3135445:WUC 2016/02 Windows Update Client 7.6.7601.19116" _
  & ",2977759:Windows 7 の rtm版 Windows CEIP カスタマーエクスペリエンス向上プログラム" _
  & ",3173040:Windows 8.1 およびWindows 7 SP1 のアップグレードの無料提供の終了通知。" _
  & ",3008273:Windows 8 to 8.1 Update" _
  & ",3065988:Windows 8.1 Windows Server 2012 R2 用 Windows Update クライアント" _
  & ",2976978:Windows 8.1 Windows CEIP カスタマー エクスペリエンス向上プログラム" _
  & ",3044374:Windows 8.1 to Windows 10 Update that enables you to upgrade"

spySplit = Split(spyListStr, ",")

Set objShell = WScript.CreateObject("WScript.Shell")

For J = 0 To UBound(spySplit)
    spyDatas = Split(spySplit(J), ":")
    ' アンインストールする
    cmdStr = "wusa.exe /uninstall /kb:" & spyDatas(0) & " /quiet /norestart"
    WScript.Echo " Uninstall > KB" & spyDatas(0) & " " & cmdStr
    objShell.Run cmdStr,,True
Next

Set objShell = Nothing

Set updateSession = CreateObject("Microsoft.Update.Session")
updateSession.ClientApplicationID = "MSDN Sample Script"

Set updateSearcher = updateSession.CreateUpdateSearcher()

WScript.Echo "Searching for updates..." & vbCRLF

Set searchResult = _
updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")

WScript.Echo "List of applicable items on the machine:"

For I = 0 To searchResult.Updates.Count-1
    Set update = searchResult.Updates.Item(I)
    WScript.Echo I + 1 & "> " & update.Title

    For J = 0 To UBound(spySplit)
        spyDatas = Split(spySplit(J), ":")
        If InStr(update.Title, spyDatas(0)) > 0 Then
            ' 更新プログラムを非表示にする
            update.IsHidden = true
            WScript.Echo " IsHidden > " & update.Title
        End If
    Next
Next

If searchResult.Updates.Count = 0 Then
    WScript.Echo "There are no applicable updates."
    WScript.Quit
End If


● Windows 10 へのアップグレードを抑止する方法

 日本マイクロソフトの公式の手順による Windows 10 へのアップグレードを抑止する方法

Windows 10 へのアップグレードを抑止する方法
 管理者権限でコマンドプロンプトを起動する

reg add HKLM\Software\Policies\Microsoft\Windows\Gwx /v DisableGwx /t REG_DWORD /d 1 /f
reg add HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate /v DisableOSUpgrade /t REG_DWORD /d 1 /f

 再起動




Tags: [Windows], [無人インストール]

●関連するコンテンツ(この記事を読んだ人は、次の記事も読んでいます)

Windows Updateの「更新プログラムの確認」を 10分に超高速化する方法
Windows Updateの「更新プログラムの確認」を 10分に超高速化する方法

  Windows Updateの「更新プログラムの確認」が終わらない場合の対策方法

Windows 7 SP1用の便利な更新プログラムのロールアップをインストールDVDに統合する方法
Windows 7 SP1用の便利な更新プログラムのロールアップをインストールDVDに統合する方法

  KB3125574を Windows 7 SP1の ISOに統合してアップデートの手間を無くす。

Windows 7のスパイパッチと呼ばれる更新プログラムのまとめ
Windows 7のスパイパッチと呼ばれる更新プログラムのまとめ

  Windows 7/8/8.1 optional updates spy on you with telemetry points

RT Se7en Liteで Windows 7の不要なコンポーネントを削除する(Win7 SP1版)
RT Se7en Liteで Windows 7の不要なコンポーネントを削除する(Win7 SP1版)

  RT7 Liteで Windows 7をインストール段階で省メモリ、省スペースに軽量化が出来ます

vLite Windows 7の不要なコンポーネントを削除する(Windows 7版)
vLite Windows 7の不要なコンポーネントを削除する(Windows 7版)

  Windows 7をインストール段階で省メモリ、省スペースに軽量化が出来ます

vLite Windows Vistaの不要なコンポーネントを削除する(Vista SP2版)
vLite Windows Vistaの不要なコンポーネントを削除する(Vista SP2版)

  Vista SP2をインストール段階で省メモリ、省スペースに軽量化が出来ます

nLite Windowsの不要なコンポーネントを削除する(Win XP SP3版)
nLite Windowsの不要なコンポーネントを削除する(Win XP SP3版)

  Windows XP SP3での nLite設定例、省メモリ、省スペースに軽量化が出来ます

nLite Windowsの不要なコンポーネントを削除する(Win Serv 2K3 R2版)
nLite Windowsの不要なコンポーネントを削除する(Win Serv 2K3 R2版)

  Windows Server 2003 R2での nLite設定例

Windows Server 2003 SP2をホストに使った RIS/WDSの構築
Windows Server 2003 SP2をホストに使った RIS/WDSの構築

  PXEブート対応の CDドライブの無い軽量ノートにネットワーク経由で Windowsがインストール可能。

Virtual PC 2004で複数のバージョンの開発環境を構築する
Virtual PC 2004で複数のバージョンの開発環境を構築する

  新バージョンの検証や保守用の旧バージョンの開発環境を独立して構築

Adobe関係のまとめ 2015年版、自動インストール、無人インストール方法
Adobe関係のまとめ 2015年版、自動インストール、無人インストール方法

  アップデート手順、外国語フォント追加など。Adobe Reader XI、Flash 19。



[HOME] | [BACK]
リンクフリー(連絡不要、ただしトップページ以外はweb構成の変更で移動する場合があります)
Copyright (c) 2015-2016 FREE WING,Y.Sakamoto
Powered by 猫屋敷工房 & HTML Generator

http://www.neko.ne.jp/~freewing/software/windows7_hide_spy_patch_update/