Kleines Netzwerk mit Windows 2012 R2 essentials Server (Domäne) und Windwows 7 64bit Clients - Update auf Windows 10 verhindern

Dim WSHShell, StartTime, ElapsedTime, strUpdateName, strAllHidden
Dim Checkagain 'Find more keep going otherwise Quit  

Dim hideupdates(1)    'TO ADD 1 EDIT THE (11) AND ADD another hideupdates(#)  

hideupdates(0) = "KB3035583" 'Windows 10 - GWX-Tool  
hideupdates(1) = "Platzhalter"  

Set WSHShell = CreateObject("WScript.Shell")  

StartTime = Timer 'Start the Timer  

Set updateSession = CreateObject("Microsoft.Update.Session")  
updateSession.ClientApplicationID = "MSDN Sample Script"  
Set updateSearcher = updateSession.CreateUpdateSearcher()
Set searchResult = updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")  

Checkagain = "True"  

For  K = 0 To 10 'Bing Desktop has 4, Silverlight has 5  
	If Checkagain = "True" Then  
		Checkagain = "False"  
		CheckUpdates
		ParseUpdates
	End if
Next

ElapsedTime = Timer - StartTime
strTitle = "Bing Desktop and Windows Updates Hidden."  
strText = strAllHidden
strText = strText & vbCrLf & ""  
strText = strText & vbCrLf & "Total Time " & ElapsedTime  
intType = vbOkOnly

'Silent just comment these 2 lines with a ' and it will run and quit  
'Set objWshShell = WScript.CreateObject("WScript.Shell")  
'intResult = objWshShell.Popup(strText,, strTitle, intType)  

'Open Windows Update after remove the comment '  
'WshShell.Run "%windir%\system32\control.exe /name Microsoft.WindowsUpdate"  

Set objWshShell = Nothing
Set WSHShell = Nothing
WScript.Quit

Function  ParseUpdates 'cycle through updates  
	For  I = 0 To searchResult.Updates.Count - 1
		Set update = searchResult.Updates.Item(I)
		strUpdateName = update.Title
		'WScript.Echo I + 1 & "> " & update.Title  
		For  j = 0 To UBound(hideupdates)
			if InStr(1, strUpdateName, hideupdates(j), vbTextCompare) = 0 Then
			Else
				strAllHidden = strAllHidden _
				& vbcrlf & update.Title
				update.IsHidden = True '  
				Checkagain = "True"  
			end if
		Next
	Next
End Function

Function  CheckUpdates 'check for new updates cause Bing Desktop has 3  
	Set updateSession = CreateObject("Microsoft.Update.Session")  
	updateSession.ClientApplicationID = "MSDN Sample Script"  
	Set updateSearcher = updateSession.CreateUpdateSearcher()
	Set searchResult = _
	updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")  
End Function