I am not familiar. I used this: Dim WSHShell, StartTime, ElapsedTime, strUpdateName, strAllHiddenDim Checkagain 'Find more keep going otherwise Quit Dim hideupdates(10) 'TO ADD 1 EDIT THE (3) AND ADD another hideupdates(#) hideupdates(0) = "KB2592687" 'Remote Desktop Protocol 8.0hideupdates(1) = "KB2709981" 'Windows Media Player 12hideupdates(2) = "Bing Desktop" 'With this we get all versionshideupdates(3) = "Silverlight"hideupdates(4) = "Malicious Software Removal Tool"hideupdates(5) = "KB971033"hideupdates(6) = ".NET Framework 3.5"hideupdates(7) = "Language Pack"hideupdates(8) = "Internet Explorer"hideupdates(9) = "Bing Bar"hideupdates(10) = ".NET Framework 4.5" 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 5If Checkagain = "True" ThenCheckagain = "False"CheckUpdatesParseUpdatesEnd ifNext ElapsedTime = Timer - StartTimestrTitle = "Bing Desktop and Windows Updates Hidden."strText = strAllHiddenstrText = strText & vbCrLf & ""strText = strText & vbCrLf & "Total Time " & ElapsedTimeintType = vbOkOnly 'Silent just comment these 2 lines with a ' and it will run and quitSet 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 = nothingSet WSHShell = NothingWScript.Quit Function ParseUpdates 'cycle through updatesFor I = 0 To searchResult.Updates.Count-1Set update = searchResult.Updates.Item(I)strUpdateName = update.Title'WScript.Echo I + 1 & "> " & update.TitleFor j = 0 To UBound(hideupdates)if instr(1, strUpdateName, hideupdates(j), vbTextCompare) = 0 thenElsestrAllHidden = strAllHidden _& vbcrlf & update.Titleupdate.IsHidden = True'Checkagain = "True"end ifNextNextEnd Function Function CheckUpdates 'check for new updates cause Bing Desktop has 3Set 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