by
Anonymous Coward
on 2015年10月11日 22時16分
(#2898000)
対処方法考えたほうが建設的かな VBSならバッチ書いてタスクスケジュラーで回すとか
---------- Sub Init() 'If you know other MS_Malware patch, add the KB Number as you like.
Call MS_Malware("3035583") 'for GWX.
Call MS_Malware("3080149") 'for updating Diagnostics and Telemetry tracking.
Call MS_Malware("3068708") 'for new Diagnostics and Telemetry tracking.
Call MS_Malware("3022345") 'for old Diagnostics and Telemetry tracking.
Call MS_Malware("3075249") 'for Telemetry point adding.
Call MS_Malware("2952664") 'for Telemetry point adding.
Call MS_Malware("2977759") 'for Windows10 compatibility chekker.
Call MS_Malware("2976978") 'for Windows10 compatibility chekker. End Sub
Dim obj_WSH,obj_FS,str_LockFile1,KB,QuietMode Set obj_WSH = Wscript.CreateObject("Wscript.Shell") Set obj_FS = CreateObject("Scripting.FileSystemObject") str_LockFile1 = obj_FS.GetSpecialFolder(2) & "\MS_Malware_Check" QuietMode = "" 'If you don't want earch responce at uninstalling, the value is " /quiet".
Function MS_Malware(KB)
if obj_FS.FileExists(str_LockFile1) Then
Do Until obj_FS.FileExists(str_LockFile1)
WScript.Sleep(100)
Loop
obj_FS.CreateTextFile(str_LockFile1)
Else
obj_FS.CreateTextFile(str_LockFile1)
End If
obj_WSH.Run "wusa.exe /uninstall /kb:" & KB & QuietMode &" /norestart",1,True
obj_FS.DeleteFile(str_LockFile1) End Function
文句あるなら (スコア:-1)
対処方法考えたほうが建設的かな
VBSならバッチ書いてタスクスケジュラーで回すとか
----------
Sub Init() 'If you know other MS_Malware patch, add the KB Number as you like.
Call MS_Malware("3035583") 'for GWX.
Call MS_Malware("3080149") 'for updating Diagnostics and Telemetry tracking.
Call MS_Malware("3068708") 'for new Diagnostics and Telemetry tracking.
Call MS_Malware("3022345") 'for old Diagnostics and Telemetry tracking.
Call MS_Malware("3075249") 'for Telemetry point adding.
Call MS_Malware("2952664") 'for Telemetry point adding.
Call MS_Malware("2977759") 'for Windows10 compatibility chekker.
Call MS_Malware("2976978") 'for Windows10 compatibility chekker.
End Sub
Dim obj_WSH,obj_FS,str_LockFile1,KB,QuietMode
Set obj_WSH = Wscript.CreateObject("Wscript.Shell")
Set obj_FS = CreateObject("Scripting.FileSystemObject")
str_LockFile1 = obj_FS.GetSpecialFolder(2) & "\MS_Malware_Check"
QuietMode = "" 'If you don't want earch responce at uninstalling, the value is " /quiet".
Function MS_Malware(KB)
if obj_FS.FileExists(str_LockFile1) Then
Do Until obj_FS.FileExists(str_LockFile1)
WScript.Sleep(100)
Loop
obj_FS.CreateTextFile(str_LockFile1)
Else
obj_FS.CreateTextFile(str_LockFile1)
End If
obj_WSH.Run "wusa.exe /uninstall /kb:" & KB & QuietMode &" /norestart",1,True
obj_FS.DeleteFile(str_LockFile1)
End Function
Init()
----------
# 非表示パッチに自動でぶっこむ方法がわかるとより良くなるんだけどなぁ
Re:文句あるなら (スコア:2)
インストールされてからアンインストールはどうかと。
># 非表示パッチに自動でぶっこむ方法がわかるとより良くなるんだけどなぁ
COM経由でWindows Update Agent API [microsoft.com]のIsHidden [microsoft.com]叩けば良いだけですよ。
PowerShellのWindows Update PowerShell Module [microsoft.com]を使えば便利な機能が揃っていていちいちプログラミングしないで済むのでそっちの方がオススメですが。
Re: (スコア:0)
こんなことする前に、なぜ自動適用をオフにしないのか。アップデート適用前に目視で内容を確かめりゃいいじゃん。
Re:文句あるなら (スコア:1)
毎月十数個もあるパッチからこの3つを手動で見分けて除外しろと言われて少しも自動化したくならないのも相当アレ。セキュリティパッチを含む以上自動適用オフは絶対に勧められない。
つーかグループポリシー [technet.com]入れればいいだろ。これは商材じゃなくて客に対するものだからいくらMSでもうかつなことはできんよ。
Re: (スコア:0)
誰も頼んでもいないのに、しかもVBSで書いてきて、オマケに"MS_Malware"だぜ?
何を言っても無駄だろうよ
Re: (スコア:0)
動詞で始まらないメソッド名&システムハンガリアンなんて久しぶりに見たが悪意の元に意図的にやってるんだろうなこれ
Re: (スコア:0)
動的型付け言語ならシステムハンガリアンも場合によってはありじゃないかと思う
Re: (スコア:0)
関数ならあるが、メソッドってどれだ?
Re: (スコア:0)
悪意じゃないだろう。
「MSの悪行を駆逐するオレ大正義」という善意の行いだよこれは。
それが他人と共有可能かはさておき。
Re: (スコア:0)
今月のWindows Updateクライアントの更新で「自動適用」に勝手に書き換えられた。
そういう対策も取ってるよ。
Re: (スコア:0)
これって何するスクリプトなの?
教えてエロ(ry
Re:文句あるなら (スコア:1)
>これって何するスクリプトなの?
問題の修正パッチをアンインストールしているだけ。
ごしゃごしゃ書いてるけど、以下のコマンド実行しているだけ。
wusa.exe /uninstall /kb:3035583 /quiet /norestart
wusa.exe /uninstall /kb:3080149 /quiet /norestart
wusa.exe /uninstall /kb:3068708 /quiet /norestart
wusa.exe /uninstall /kb:3022345 /quiet /norestart
wusa.exe /uninstall /kb:3075249 /quiet /norestart
wusa.exe /uninstall /kb:2952664 /quiet /norestart
wusa.exe /uninstall /kb:2977759 /quiet /norestart
wusa.exe /uninstall /kb:2976978 /quiet /norestart
# "パッチが導入されていたらアンインストール"するのではなく、"つねに"アンインストールしている。
# 判定が無いのなら、上記の8行を素直にバッチファイルに書いてスタートアップに放り込んだ方が楽だと思う。
notice : I ignore an anonymous contribution.
Re:文句あるなら (スコア:1)
wusa /uninstall /kb:2952664 /quiet /norestart
wusa /uninstall /kb:2976978 /quiet /norestart
wusa /uninstall /kb:2977759 /quiet /norestart
wusa /uninstall /kb:3022345 /quiet /norestart
wusa /uninstall /kb:3035583 /quiet /norestart
wusa /uninstall /kb:3068708 /quiet /norestart
wusa /uninstall /kb:3075249 /quiet /norestart
wusa /uninstall /kb:3080149 /quiet /norestart
上とダブってるのあるけど、これでいいはず。
Re:文句あるなら (スコア:1)
適当にネットで調べてきたのを書いたんだけど、順番が違うだけでアンインストールする更新は同じだったw
他に消したほうがいいのとかあるのかな。
Re: (スコア:0)
あなたは非常に正しい。意味もわからないでコピペするような奴は遠隔操作ウイルスの格好の餌食
Re: (スコア:0)
「非表示にすればいいだけ [it.srad.jp]」の次はそれか。どこまで飼いならされてるんだか