Windows Update KB3035583: Wie soll "man" sich da verhalten?

[Yonah]

Hab mir das KB????? vorhin eingefangen, zwar auf dem Zweitrechner, aber trotzdem ärgerlich.
Scheint nach dem Zufallsprinzip zu laufen, Hardwareunabhängig. Trotz Einstellung 'Manuell laden&installieren', Alleine die wenigen Gigabyte wieder von der SSD entfernen, das WIE scheint noch nicht gelöst.
Zumindest nach Winfuture:http://winfuture.de/news,89385.html
oder http://www.computerbase.de/2015-10/windows-10-windows-7-und-8.1-erhalten-upgrade-statt-updates/

Außerdem wird eine Partition angelegt, die wiederum etliche Gb groß ist, also heftigere Dimensionen als KB3035583.

Heise hatte irgendwas, muss mal recherchieren.
(und ohnehin eine Sauerei, typisch Windows)

PS: glaube kaum, das ausgerechnet der Win-Support so wirklich Hilfreich werden wird.

 

[Head]

Ich habe es auch wieder *grml*

So langsam finde ich es ungemütlich, die sollen da mal lieber vorsichtiger sein und es ruhiger angehen.

 

[cyberjonny]

Jo, bei mir auch... Alle Jahre Woche wieder... wirklich nervig! :thumbdown:

Ich bügle eben jedes Mal direkt wieder das Script von c't drüber, dann hab ich wieder Ruhe. Bis zum nächsten Mal.

 

[fakeraol]

Bei mir ist nix wieder aufgetaucht. Ich sammel gerade Scripte und Registry-Einstellungen dazu. Gefunden hab ich bisher:
DisableOSUpgrade.reg

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Wi\
ndows\GWX]
"DisableGWX"=dword:00000001

[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Wi\
ndows\WindowsUpdate]
"DisableOSUpgrade"=dword:00000001

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur\
rentVersion\WindowsUpdate\OSUpgrade]
"AllowOSUpgrade"=dword:00000000
"ReservationsAllowed"=dword:00000000

Hinweis by Mornsgrans:
Beim Kopieren der o.a. Registry-Schlüssel darauf achten, dass eventuell vorhandene Leerstellen (Darstellungsfehler) aus den Schlüsselnamen entfernt werden
Ergänzung by fakeraol: Hab die Zeilen Registryeditor-kompatibel umgebrochen, so daß VBulletin da kein falsches Leerzeichen mehr reineditiert.

hideKBs.cmd

@echo off&cls&title hide updates - Remember to be connected to internet!

echo Checking for internet connectivity needed to perform updates
echo This will try to ping google.com 4 times
echo if ping successful will update, otherwise continue without updates

ping -n 4 google.com|find "Zeit=" >nul
IF NOT ERRORLEVEL 1 goto :internet
IF ERRORLEVEL 1 goto :end
:internet
echo.
echo Internet Detected
echo.

:: script must be run multiple times to hide Bing
echo 1) HideKbs.vbs
cscript //nologo "%~dp0hideKBs.vbs"
echo.
echo 2) HideKbs.vbs
cscript //nologo "%~dp0hideKBs.vbs"
echo.
echo 3) HideKbs.vbs
cscript //nologo "%~dp0hideKBs.vbs"

echo.
echo Finished
ping localhost -n 5 >nul

:end

hideKBs.vbs

' Windows 7 hide KBs - ndog
' last updated - 25/11/2013

Dim hideupdates(23)

' Bing Toolbar
hideupdates(0) = "Bing Desktop"
hideupdates(1) = "Bing Bar"

' GWX / Win10
hideupdates(2) = "KB2952664"
hideupdates(3) = "KB2976978"
hideupdates(4) = "KB2977759"
hideupdates(5) = "KB2990214"
hideupdates(6) = "KB3008273"
hideupdates(7) = "KB3021917"
hideupdates(8) = "KB3022345"
hideupdates(9) = "KB3035583"
hideupdates(10) = "KB3044374"
hideupdates(11) = "KB3046480"
hideupdates(12) = "KB3050265"
hideupdates(13) = "KB3050267"
hideupdates(14) = "KB3054203"
hideupdates(15) = "KB3054205"
hideupdates(16) = "KB3058168"
hideupdates(17) = "KB3068708"
hideupdates(18) = "KB3075851"
hideupdates(19) = "KB3075853"
hideupdates(20) = "Upgrade auf Windows 10 Home"
hideupdates(21) = "Upgrade auf Windows 10 Pro"

' Silverlight
hideupdates(22) = "Microsoft Silverlight"

' International language packs
hideupdates(23) = "KB2483139"

set updateSession = createObject("Microsoft.Update.Session")
set updateSearcher = updateSession.CreateupdateSearcher()

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

For i = 0 To searchResult.Updates.Count-1
set update = searchResult.Updates.Item(i)
For j = LBound(hideupdates) To UBound(hideupdates)
'MsgBox hideupdates(j)
if instr(1, update.Title, hideupdates(j), vbTextCompare) = 0 then
'Wscript.echo "No match found for " & hideupdates(j)
else
Wscript.echo "Hiding " & hideupdates(j)
update.IsHidden = True
end if
Next
Next

Unistall Hotfix.vbs

'---------------------------------------------------------------------------------
' The sample scripts are not supported under any Microsoft standard support
' program or service. The sample scripts are provided AS IS without warranty
' of any kind. Microsoft further disclaims all implied warranties including,
' without limitation, any implied warranties of merchantability or of fitness for
' a particular purpose. The entire risk arising out of the use or performance of
' the sample scripts and documentation remains with you. In no event shall
' Microsoft, its authors, or anyone else involved in the creation, production, or
' delivery of the scripts be liable for any damages whatsoever (including,
' without limitation, damages for loss of business profits, business interruption,
' loss of business information, or other pecuniary loss) arising out of the use
' of or inability to use the sample scripts or documentation, even if Microsoft
' has been advised of the possibility of such damages.
'---------------------------------------------------------------------------------

Sub main()
Dim objshell,objExecObject,count,HotFixID
If Wscript.Arguments.Count = 0 Then
WScript.Echo "Invalid Arguments "
Else
Dim arrHotFix()
For i = 0 to Wscript.Arguments.Count - 1
Redim Preserve arrHotFix(i)
arrHotFix(i) = Wscript.Arguments(i)
Next

For Each HotFixId In arrHotFix
UninstallHotFix(HotFixId)
Next
End If
End Sub

Function UninstallHotFix(HotFixID)
ID = Right(HotfixID,Len(hotfixid)-2)
If GetHotFix(HotFixID) = True Then
Set objshell = CreateObject("wscript.shell")
Set objExecObject = objshell.Exec("Cmd /c wusa.exe /uninstall /KB:" & ID & " /quiet /norestart")
Do
WScript.Sleep 3000
Loop Until FindWusa = False
If GetHotFix(HotFixID) Then
WScript.Echo "Failed to uninstall " & HotFixID
Else
WScript.Echo "Uninstall " & HotFixID & " Successfully."
End If
Else
WScript.Echo "Not find hotfix " & HotFixID
End If
End Function

Function FindWusa 'This function is to verify "wusa.exe" is running
set service = GetObject ("winmgmts:")
for each Process in Service.InstancesOf ("Win32_Process")
If Process.Name = "wusa.exe" then
Flag = True
Exit For
End If
Next
If Flag Then
FindWusa = True
Else
FindWusa = False
End If
End Function

Function GetHotFix(HotFixID)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering where HotFixID = '" & HotFixID & "'")
For Each colitem In colitems
If InStr(UCase(colitem.HotFixId),UCase(HotFixID)) > 0 Then
Flag = True
End If
Next
If Flag = True Then
GetHotFix = True
Else
GetHotFix = False
End If
End Function

Call main

Das Ausblenden und das Deinstallieren kann man zusammenstricken. Hat den Vorteil, daß man nicht nur KB****-Nummern angeben kann, sondern z.B. auch "Silverlight", womit dann alle zugehörigen KB's verarbeitet werden.
Evtl. stell ich das automatische Update ab und rufe das Script dann per Taskplaner auf, so daß die ungewollten gleich gefiltert und ausgeblendet werden.

Wenns M$ übertreibt mit dem Generve, geben sie den Hobby-ITlern, die - bisher für M$ kostenlos - in ihrem Bekanntenkreis den Support geleistet haben, vielleicht genug Motivation für den Umstieg auf *nix, was in der Folge dann z.T. den Rattenschwanz des Umstiegs dieser Bekannten ebenfalls auf *nix nach sich ziehen könnte. Bisher bin ich trotz Gehader mit M$ noch zu träge für diesen Umstieg gewesen, aber das könnte sich ja jetzt ändern, und mir fallen im Moment keine Argumente ein, mit denen mich M$ dann noch zurückgewinnen könnte.


Geändert von Mornsgrans (20.10.2015 um 21:50 Uhr) Grund: Hinweis ergänzt

 

[Lokheizer]

Gerade bei mir wieder - glücklicherweise schaue ich mir die Update-Nummern mittlerweile exakt an....