Jump to content

Welcome to MSFN Forum
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account



Photo

Hide Bing Desktop and other Windows Updates


  • Please log in to reply
36 replies to this topic

#26
NikolaS92

NikolaS92

    Newbie

  • Member
  • 14 posts
  • Joined 19-March 14
  • OS:none specified
  • Country: Country Flag

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
??



How to remove advertisement from MSFN

#27
ricktendo

ricktendo

    Group: Banned Members

  • Member
  • PipPipPipPipPipPipPipPip
  • 2,310 posts
  • Joined 06-June 06
  • OS:Windows 7 x64
  • Country: Country Flag

Add/remove a section here

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) = "NEW Entry Name 1" 'you add this
hideupdates(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, 27 April 2014 - 11:14 AM.


#28
NikolaS92

NikolaS92

    Newbie

  • Member
  • 14 posts
  • Joined 19-March 14
  • OS:none specified
  • Country: Country Flag

Already tried that, doesnt work.

Snap_Crab_No_Name_2014_4_28_1_29_30_No_0



#29
bphlpt

bphlpt

    MSFN Addict

  • Member
  • PipPipPipPipPipPipPip
  • 1,821 posts
  • Joined 12-May 07
  • OS:none specified
  • Country: Country Flag

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

 

Cheers and Regards


Edited by bphlpt, 28 April 2014 - 01:03 AM.

Posted Image


#30
NikolaS92

NikolaS92

    Newbie

  • Member
  • 14 posts
  • Joined 19-March 14
  • OS:none specified
  • Country: Country Flag

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


#31
bphlpt

bphlpt

    MSFN Addict

  • Member
  • PipPipPipPipPipPipPip
  • 1,821 posts
  • Joined 12-May 07
  • OS:none specified
  • Country: Country Flag

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


Posted Image


#32
NikolaS92

NikolaS92

    Newbie

  • Member
  • 14 posts
  • Joined 19-March 14
  • OS:none specified
  • Country: Country Flag

http://www.datafilehost.com/d/e2221785



#33
bphlpt

bphlpt

    MSFN Addict

  • Member
  • PipPipPipPipPipPipPip
  • 1,821 posts
  • Joined 12-May 07
  • OS:none specified
  • Country: Country Flag

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

 

Cheers and Regards


Posted Image


#34
NikolaS92

NikolaS92

    Newbie

  • Member
  • 14 posts
  • Joined 19-March 14
  • OS:none specified
  • Country: Country Flag

It works now, thanks for help.



#35
maxXPsoft

maxXPsoft

    MSFN Master

  • Developer
  • 2,889 posts
  • Joined 14-November 03
  • OS:Windows 7 x64
  • Country: Country Flag

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.


Download ++> Windows 7 + 8 Unattended DVD + App Installer + Services Disabler + Load All Button + XML Creator
Jump2Reg - Registry: - Oct 4, 2013 - Version 3.0.4 - 98, ME, NT, 2K, XP, VISTA, Seven, Windows 8+ and 32 or 64 bit

XP Unattended CD/DVD creator - Version 4.1.7
Sample xml + Setupcomplete + Add Right click .wim Windows 7 or Windows 8/8.1

#36
PinkFreud

PinkFreud

    Junior

  • Member
  • Pip
  • 89 posts
  • Joined 12-August 10
  • OS:Windows 7 x64
  • Country: Country Flag
Wish Bing Desktop would do same.

 

That makes (at least) two of us. :} :whistle:


Edited by PinkFreud, 02 May 2014 - 10:13 AM.


#37
Forseti

Forseti
  • Member
  • 3 posts
  • Joined 06-April 11
  • OS:Windows 7 x64
  • Country: Country Flag

Perfekt! Thanks :)


Edited by Forseti, 09 July 2014 - 02:41 AM.





0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users