Script für Proxy(an/aus) / WInUpdate / Internet Explorer

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • Script für Proxy(an/aus) / WInUpdate / Internet Explorer

      Moin seit langem mal wieder ;)

      Hab mir vor Kurzem nach und nach ein kleines Script (.vbs-Datei) aus diversen Quellen zusammengebastelt, welches entweder Proxy an-/ausschaltet,
      automatisch nach Win-Updates sucht bzw. den Internet Explorer öffnet.

      Hintergrund:
      Als kleine zusätzliche Sicherheitsmaßnahme habe ich neben den Firewall-Einstellungen (wo bis auf einige Ausnahmen auch alle ausghenden Verbindungen blockiert werden)
      auch die Proxy-Einstellungen des Internet Explorer auf 0.0.0.0 eingestellt, sodass man nur bei ausgeschaltetem Proxy ins Internet kommt.
      Nun ist es aber nervig, für's Win-Update oder den IE jedes Mal umständlich die Internetoptionen aufzurufen und Proxy an-/ausstellen zu müssen.
      Den IE brauch ich in seltenen Fällen halt mal, wenn eine Seite aufgrund diverser Firefox-Addon-Einstellungen nicht richtig dargestellt werden kann bzw. funktioniert.
      So nahm nach langem Herumexperimentieren Befehl für Befehl folgendes Script seine Form an (unter Win7 getestet):

      Quellcode

      1. dim oShell
      2. set oShell = Wscript.CreateObject("Wscript.Shell")
      4. if msgbox("Proxy ausschalten?", vbQuestion or vbYesNo) = vbYes then
      5. oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
      7. Set IE = CreateObject("InternetExplorer.Application")
      8. IE.Visible = False
      10. set sh=WScript.CreateObject("WScript.Shell")
      11. sh.run "taskkill /IM IEXPLORE.exe /F" ,0
      13. if msgbox("Update(J) oder Internet(N)?", vbYesNo) = vbYes then
      14. Set WshShell = WScript.CreateObject("WScript.Shell")
      15. WshShell.Run ("C:\Windows\System32\wuapp.exe")
      17. set WshShell = CreateObject("WScript.Shell")
      18. WshShell.AppActivate "Windows Update"
      19. WScript.Sleep 500
      20. WshShell.SendKeys "%S /F"
      22. else
      23. Set WshShell = CreateObject("WScript.Shell")
      24. If WshShell.AppActivate("Windows Update") Then
      25. WshShell.SendKeys "%{F4}"
      26. End If
      28. Set WshShell = WScript.CreateObject("WScript.Shell")
      29. Return = WshShell.Run("iexplore.exe", 3)
      30. WScript.Sleep 200
      31. end if
      33. else
      34. oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
      35. oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "proxy:8080", "REG_SZ"
      37. Set IE = CreateObject("InternetExplorer.Application")
      38. IE.Visible = False
      40. set sh=WScript.CreateObject("WScript.Shell")
      41. sh.run "taskkill /IM IEXPLORE.exe /F" ,0
      43. Set WshShell = CreateObject("WScript.Shell")
      44. If WshShell.AppActivate("Windows Update") Then
      45. WshShell.SendKeys "%{F4}"
      47. end if
      49. end if
      Alles anzeigen


      Effekt des Scripts (nach Erstellen einer Verknüpfung zum Script kann man dieser eine Tastenkombination zuweisen):
      Tastenkombination -> J oder Enter -> J oder Enter = Proxy aus, es wird direkt nach Updates gesucht

      Tastenkombination -> J oder Enter -> N = Proxy aus, der Internet Explorer öffnet sich

      Tastenkombination -> N = Proxy an, eventuelle WinUpdate- und Internet Explorer-Instanzen werden geschlossen

      Das Script selbst hab ich unter „System32“ abgelegt, die Verknüpfung dazu in „C:\Users\AppData\Roaming\Microsoft\InternetExplorer\QuickLaunch\UserPinned\StartMenu“.
      Vielleicht kann der/die ein oder andere ja was mit anfangen oder hat noch nen Tipp diesbezüglich... (z.B. wie kann man den Textinhalt der Buttons in den Frageboxen ändern?)
      Letztlich alles Spielerei, aber mir hat das Rumbasteln auf jeden Fall gutgehend Spass gemacht, da ich auf diesem Gebiet ziemlich wenig bewandert bin.
      So waren die sich nach und nach einstellenden kleinen Erfolgserlebnisse um so schöner !o)
      Also ggf. viel Spass damit!

      LGLG
      xps m1530
      t9300 @ 2.7ghz ~ 8600gt (oc) ~ samsung 860 evo 500gb ~ 8gb ram ~ coolermaster u3 mod