On error resume next ''''''''''''''''''''''''''''''''''''''''''''' ''THIS FILE WILL OVERWRITE THE *HOSTS* FILE'' ''''''''''''''''''''''''''''''''''''''''''''' ''SET SOME VARIABLES'' Dim objFileSystem, objOutputFile Dim strOutputFile Const OPEN_FILE_FOR_APPENDING = 8 ''HERE WE OVERWRITE ANY OLD HOSTS FILE WITH NOTHING'' strOutputFile = "C:\WINDOWS\system32\drivers\etc\hosts" Set objFileSystem = CreateObject("Scripting.fileSystemObject") Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE) objOutputFile.Close Err.Clear ''OPEN THE EMPTY FILE THAT ALREADY EXISTS - AND WRITE NEW INFO INTO IT'' Set objFileSystem = CreateObject("Scripting.fileSystemObject") strOutputFile = "C:\WINDOWS\system32\drivers\etc\hosts" Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile, 8) ''THIS IS WHAT WE WRITE TO THE FILE'' objOutputFile.WriteLine("# Copyright (c) 1993-1999 Microsoft Corporation") objOutputFile.WriteLine("# Dette er en HOSTS-fil som brukes av Microsoft TCP/IP for Windows.") objOutputFile.WriteLine("# Denne er videre redigert av Alexander for å fjerne tilgang til Virus og Reklame!!!") objOutputFile.WriteLine(" ") objOutputFile.WriteLine("## WINDOWS STANDARD - LA STÅ ##") objOutputFile.WriteLine("127.0.0.1 localhost") objOutputFile.WriteLine(" ") objOutputFile.WriteLine("## DENNE SIDEN GIR DEG VIRUS ##") objOutputFile.WriteLine("0.0.0.0 liveantivirusspccheck.com") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine("## LOKALT NETTVERK TJENESTER ##") objOutputFile.WriteLine("10.10.10.10 DLINK") objOutputFile.WriteLine(".10.10.10.10 D-LINK") objOutputFile.WriteLine("0.0.0.0 FTP") objOutputFile.WriteLine("0.0.0.0 FTP") objOutputFile.WriteLine(" ") objOutputFile.WriteLine("## Denne linjen under her må 'KOMMENTERES VEKK' dersom man skal bruke BergenKino Bestilling") objOutputFile.WriteLine("## 0.0.0.0 ad1.emediate.dk") objOutputFile.WriteLine(" ") objOutputFile.WriteLine("## DISSE VISER REKLAMER PÅ INTERNETTSIDER ##") objOutputFile.WriteLine("0.0.0.0 atdmt.com") objOutputFile.WriteLine("0.0.0.0 ads.lucidmedia.com") objOutputFile.WriteLine("0.0.0.0 afy11.net") objOutputFile.WriteLine("0.0.0.0 quantserve.com") objOutputFile.WriteLine("0.0.0.0 tribalfusion.com") objOutputFile.WriteLine("0.0.0.0 kontera.com") objOutputFile.WriteLine("0.0.0.0 ad.no.doubleclick.net") objOutputFile.WriteLine("0.0.0.0 doubleclick.net") objOutputFile.WriteLine("0.0.0.0 m1.2mdn.net") objOutputFile.WriteLine("0.0.0.0 fls.doubleclick.net") objOutputFile.WriteLine("0.0.0.0 track.adform.net") objOutputFile.WriteLine("0.0.0.0 statistisk-gallup.net") objOutputFile.WriteLine("0.0.0.0 stat.katalysatormedia.no") objOutputFile.WriteLine("0.0.0.0 m.se.2mdn.net") objOutputFile.WriteLine("0.0.0.0 m1.emea.2mdn.net") objOutputFile.WriteLine("0.0.0.0 hstno.tradedoubler.com") objOutputFile.WriteLine("0.0.0.0 anetno.tradedoubler.com") objOutputFile.WriteLine("0.0.0.0 ads.sol.no") objOutputFile.WriteLine("0.0.0.0 ads.vg.basefarm.net") objOutputFile.WriteLine("0.0.0.0 adserver.adtech.de") objOutputFile.WriteLine("0.0.0.0 aka-cdn-ns.adtech.de") objOutputFile.WriteLine("0.0.0.0 bannerfarm.ace.advertising.com") objOutputFile.WriteLine("0.0.0.0 advertising.com") objOutputFile.WriteLine("0.0.0.0 flash.vg.no") objOutputFile.WriteLine("0.0.0.0 zone13.adicate.com") objOutputFile.WriteLine("0.0.0.0 adicate.com") objOutputFile.WriteLine("0.0.0.0 advanced-anti-virus-scanner.com") objOutputFile.WriteLine("0.0.0.0 gotoyourclicks.cn") objOutputFile.WriteLine("0.0.0.0 hotchkis.net") objOutputFile.WriteLine("0.0.0.0 clicksor.com") objOutputFile.WriteLine("0.0.0.0 compteur.cc") objOutputFile.WriteLine("0.0.0.0 partyaccount.com") objOutputFile.WriteLine("0.0.0.0 partypoker.com") objOutputFile.WriteLine("0.0.0.0 advertising.com") objOutputFile.WriteLine("0.0.0.0 tradedoubler.com") objOutputFile.WriteLine("0.0.0.0 synad2.nuffnang.com.sg") objOutputFile.WriteLine("0.0.0.0 serving.sys") objOutputFile.WriteLine("0.0.0.0 admeta.com") objOutputFile.WriteLine("0.0.0.0 statcounter.com") objOutputFile.WriteLine("0.0.0.0 ad.yieldmanager.com") objOutputFile.WriteLine("0.0.0.0 folk.inpoc.no") objOutputFile.WriteLine("0.0.0.0 bravenet.com") objOutputFile.WriteLine("0.0.0.0 vad.zanbox.com") objOutputFile.WriteLine("0.0.0.0 zbox.zanox.com") objOutputFile.WriteLine("0.0.0.0 demo6.adbureau.net") objOutputFile.WriteLine("0.0.0.0 information.com") objOutputFile.WriteLine("0.0.0.0 zedge.net") objOutputFile.WriteLine("0.0.0.0 liveantivirusspccheck.com") objOutputFile.WriteLine("0.0.0.0 securedprotectedclicks.com") objOutputFile.WriteLine("0.0.0.0 revsci.net") objOutputFile.WriteLine("0.0.0.0 redcats.122.2o7.net") objOutputFile.WriteLine("0.0.0.0 adstronic.net") objOutputFile.WriteLine("0.0.0.0 adtrafficdriver.com") objOutputFile.WriteLine("0.0.0.0 sadafaha.com") objOutputFile.WriteLine("0.0.0.0 ads.dyrogmedia.com") objOutputFile.WriteLine("0.0.0.0 euroadrenaline.com") objOutputFile.WriteLine("0.0.0.0 tlal.exelator.net") objOutputFile.WriteLine("0.0.0.0 load.exelator.com") objOutputFile.WriteLine("0.0.0.0 onlinestatsmanager.com") objOutputFile.WriteLine("0.0.0.0 addlvr.com") objOutputFile.WriteLine("0.0.0.0 yuku.com") objOutputFile.WriteLine("0.0.0.0 googleadservices.com") objOutputFile.WriteLine("0.0.0.0 saxoorklamedia.122.2o7.net") objOutputFile.WriteLine("0.0.0.0 ilead.itrack.it") objOutputFile.WriteLine("0.0.0.0 searchmarketing.com") objOutputFile.WriteLine("0.0.0.0 247realmedia.com") objOutputFile.WriteLine("0.0.0.0 interclick.com") objOutputFile.WriteLine("0.0.0.0 bs.serving.sys.com") objOutputFile.WriteLine("0.0.0.0 myroitracking.com") objOutputFile.WriteLine("0.0.0.0 serv.clicksor.com") objOutputFile.WriteLine("0.0.0.0 wixawin.com") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine("### END OF LIST ###") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") objOutputFile.WriteLine(" ") ''WE CLOSE THE FILE'' objOutputFile.Close Set objFileSystem = Nothing msgbox "You have succesfully re-written your HOSTS file to add many Non-Allowed internet pages" & vbcrlf & "This means that many AD's will never be displayed again!! Ahh, Happy days!!" WScript.Quit(0)