bphlpt Posted April 28, 2014 Share Posted April 28, 2014 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 Link to comment Share on other sites More sharing options...
NikolaS92 Posted April 28, 2014 Share Posted April 28, 2014 http://www.datafilehost.com/d/e2221785 Link to comment Share on other sites More sharing options...
bphlpt Posted April 28, 2014 Share Posted April 28, 2014 Make sure your file is saved as ANSI text rather than UTF-8 Signature and try it again.Cheers and Regards Link to comment Share on other sites More sharing options...
NikolaS92 Posted April 29, 2014 Share Posted April 29, 2014 It works now, thanks for help. Link to comment Share on other sites More sharing options...
maxXPsoft Posted May 2, 2014 Author Share Posted May 2, 2014 Only edit this with notepad if you don't have a vbs editorUpdated 1st Post with my latest' 05/02/2014 By adding KB and Bing Bar it gets them all and so far has not come backWish Bing Desktop would do same. Link to comment Share on other sites More sharing options...
PinkFreud Posted May 2, 2014 Share Posted May 2, 2014 (edited) edit Edited January 27, 2015 by PinkFreud Link to comment Share on other sites More sharing options...
Forseti Posted July 9, 2014 Share Posted July 9, 2014 (edited) Perfekt! Thanks Edited July 9, 2014 by Forseti Link to comment Share on other sites More sharing options...
gwblok Posted July 9, 2015 Share Posted July 9, 2015 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/559e7bad43cfbDocument 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. Link to comment Share on other sites More sharing options...
bphlpt Posted July 9, 2015 Share Posted July 9, 2015 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 Link to comment Share on other sites More sharing options...
maxXPsoft Posted July 12, 2015 Author Share Posted July 12, 2015 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. Link to comment Share on other sites More sharing options...
perryt9 Posted August 24, 2015 Share Posted August 24, 2015 Hi, It doesn't work for me on Windows 7 Pro nor on Windows 8.1 Pro Link to comment Share on other sites More sharing options...
maxXPsoft Posted September 13, 2015 Author Share Posted September 13, 2015 Last I used it on Win 7 it was still working.Post a link to file you are usingAlso look at this Make sure your file is saved as ANSI text rather than UTF-8 Signature and try it again. Cheers and Regards Link to comment Share on other sites More sharing options...
kek Posted January 13, 2016 Share Posted January 13, 2016 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. Link to comment Share on other sites More sharing options...
Prodif Posted January 31, 2016 Share Posted January 31, 2016 (edited) 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 18If Checkagain = "True" ThenCheckagain = "False"CheckUpdatesParseUpdatesEnd ifNextSet objWshShell = nothingSet WSHShell = NothingWScript.QuitFunction ParseUpdatesFor I = 0 To searchResult.Updates.Count-1Set update = searchResult.Updates.Item(I)strUpdateName = 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 FunctionFunction CheckUpdatesSet updateSession = CreateObject("Microsoft.Update.Session")Set updateSearcher = updateSession.CreateUpdateSearcher()Set searchResult = _updateSearcher.Search("IsInstalled=0 and Type='Software' and IsHidden=0")End Function Edited January 31, 2016 by Prodif Link to comment Share on other sites More sharing options...
maxXPsoft Posted February 1, 2016 Author Share Posted February 1, 2016 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now