• Announcements

    • xper

      MSFN Sponsorship and AdBlockers!   07/10/2016

      Dear members, MSFN is made available via subscriptions, donations and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, become a site sponsor and ads will be disabled automatically and by subscribing you get other sponsor benefits.
maxXPsoft

Hide Bing Desktop and other Windows Updates

47 posts in this topic

How to edit script so it hides all these:

KB2592687 - Remote Desktop Protocol 8.0
KB2709981 - Windows Media Player 12
Bing Desktop
Silverlight
Malicious Software Removal Tool
.NET Framework 4.5
KB971033
.NET Framework 3.5
Language Packs
Internet Explorer
Bing Bar
??
0

Share this post


Link to post
Share on other sites

Add/remove a section here

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) = "NEW Entry Name 1" 'you add thishideupdates(5) = "NEW Entry Name 2" 'add another if you want

Here you need to increase or decrease the number to be the same number as the last entry, in this case its 5 so we change it to 5

Dim hideupdates(5) 'TO ADD 1 EDIT THE (3) AND ADD another hideupdates(#)
Edited by ricktendo
0

Share this post


Link to post
Share on other sites

Post the "Link.vbs" you used that got that error. Are you familiar with writing and debugging VBScript?

Cheers and Regards

Edited by bphlpt
0

Share this post


Link to post
Share on other sites

I am not familiar. I used this:

Dim WSHShell, StartTime, ElapsedTime, strUpdateName, strAllHidden
Dim 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.0
hideupdates(1) = "KB2709981" 'Windows Media Player 12
hideupdates(2) = "Bing Desktop" 'With this we get all versions
hideupdates(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 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
0

Share this post


Link to post
Share on other sites

Is the file saved as a simple text file with a .VBS extension? From the error messwage it thinks there is something wrong with the first cahacter on the first line of the file. You might want to upload an exact copy of your file somewhere and provide a link to it here so that someone can download your file and make sure there is nothing wrong with the format of the file.

Cheers and Regards

0

Share this post


Link to post
Share on other sites

Make sure your file is saved as ANSI text rather than UTF-8 Signature and try it again.

Cheers and Regards

0

Share this post


Link to post
Share on other sites

Only edit this with notepad if you don't have a vbs editor

Updated 1st Post with my latest

' 05/02/2014 By adding KB and Bing Bar it gets them all and so far has not come back

Wish Bing Desktop would do same.

0

Share this post


Link to post
Share on other sites

edit

Edited by PinkFreud
0

Share this post


Link to post
Share on other sites

Perfekt! Thanks :)

Edited by Forseti
0

Share this post


Link to post
Share on other sites

I've run into something interesting, I've been trying to get this script working for the past 30 minutes, every time it runs, it shows that it didn't hide any updates.  I believe it's because I use ConfigMgr to push updates to computers.  However, the option for users to "Check online for updates from Microsoft Update" is available, if they click on that, it will show updates I would like to hide Skype & Language Packs.
The same script does work on computers that I'm not managing with ConfigMgr.  Is there a way to make this script hide those updates from users who click on "Check online for updates from Microsoft Update" when in a ConfigMgr enviroment?
 

http://www.files.com/set/559e7bad43cfb

Document with Images to help Explain Issue.  I was pasting the images in the body of this, but found out when I clicked "Post" that I was unable to use that feature.

0

Share this post


Link to post
Share on other sites

I was pasting the images in the body of this, but found out when I clicked "Post" that I was unable to use that feature.

 

The most reliable way to post images on this and almost any forum is to upload your images to the free image hosting service of your choice, such as TinyPic. To place the image where you want while you are editing or creating your post, position the cursor where you want the image to appear, click the "Image" button in the menu of the edit box, and insert the link to your image.  Your image should appear instantly.  This works on all forums that I am aware of.

 

Cheers and Regards

0

Share this post


Link to post
Share on other sites

The same script does work on computers that I'm not managing with ConfigMgr.  Is there a way to make this script hide those updates from users who click on "Check online for updates from Microsoft Update" when in a ConfigMgr enviroment?

 

I've had no dealing with ConfigMgr so it would be up to someone that uses that to invent a workaround.

0

Share this post


Link to post
Share on other sites
Hi,
 
It doesn't work for me on Windows 7 Pro nor on Windows 8.1 Pro
 

R2yLkD2.png

0

Share this post


Link to post
Share on other sites

Last I used it on Win 7 it was still working.

Post a link to file you are using

Also look at this

 

Make sure your file is saved as ANSI text rather than UTF-8 Signature and try it again.

 

Cheers and Regards

0

Share this post


Link to post
Share on other sites

I got something similar to that and running it as admin fixed it.

 

That said, on Windows 8.1 it seems to be broken, because it hid all my updates instead of the list I gave it.

0

Share this post


Link to post
Share on other sites

Buenos, need help. The script works only with Internet, as correct to work without Internet ?? (from Win 7)

------------------------------------------------

Dim hideupdates(18)

hideupdates(0) = "KB971033"
hideupdates(1) = "KB2882822"
hideupdates(2) = "KB2952664"
hideupdates(3) = "KB2977759"
hideupdates(4) = "KB2990214"
hideupdates(5) = "KB3021917"
hideupdates(6) = "KB3022345"
hideupdates(7) = "KB3035583"
hideupdates(8) = "KB3050265"
hideupdates(9) = "KB3065987"
hideupdates(10) = "KB3068708"
hideupdates(11) = "KB3075249"
hideupdates(12) = "KB3075851"
hideupdates(13) = "KB3080149"
hideupdates(14) = "KB3081954"
hideupdates(15) = "KB3083324"
hideupdates(16) = "KB3083710"
hideupdates(17) = "KB3088195"
hideupdates(18) = "KB3102810"

Set WSHShell = CreateObject("WScript.Shell")
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 18
If Checkagain = "True" Then
Checkagain = "False"
CheckUpdates
ParseUpdates
End if
Next

Set objWshShell = nothing
Set WSHShell = Nothing
WScript.Quit

Function ParseUpdates
For I = 0 To searchResult.Updates.Count-1
Set update = searchResult.Updates.Item(I)
strUpdateName = 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
Set updateSession = CreateObject("Microsoft.Update.Session")
Set updateSearcher = updateSession.CreateUpdateSearcher()
Set searchResult = _
updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")
End Function

Edited by Prodif
0

Share this post


Link to post
Share on other sites

Buenos, need help. The script works only with Internet, as correct to work without Internet ?? (from Win 7)

------------------------------------------------

Dim hideupdates(18)

 

Set updateSession = CreateObject("Microsoft.Update.Session")

That's contacting the Update server on the internet. Where else could you search against?

I haven't tried or looked into it. I'm fighting 10 now so really can't say

0

Share this post


Link to post
Share on other sites

Updates necessary add to the DataStore.edb offline mode, how to do it correctly? We have a list of updates.

p.s. just need to install 10 LTSB )

Edited by Prodif
0

Share this post


Link to post
Share on other sites

I'm running 10 LTSB for 51 days now and only updates I get is

Flash player and Windows Defender mainly

and MSRT once monthly

 

I only see 3 regular Update for Windows 10 for x64-based Systems in there

0

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.