Hier ist ein kleines Script, welches entweder den Proxy Server im Internet Explorer de– bzw. aktiviert.
Wenn eine IP-Adresse nicht erreicht wird, soll der Proxy Server deaktiviert werden. Wenn erreichbar, wird dieser aktiviert.
‘ VBScript – Manuelles aktivieren/deaktivieren eines Proxy-Servers
set wshshell = createobject(“Wscript.shell”)
PingMyServer(“IP-Adresse”)
Function PingMyServer (ByVal strIP)
Dim objPing
Set objPing = GetObject (“winmgmts:Win32_PingStatus.address=’” & strIP & “‘”)If IsNull (objPing.StatusCode) Or objPing.StatusCode <> 0 Then
WSHShell.RegWrite “HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 0, “REG_DWORD”
wshshell.popup “Proxy erfolgreich deaktiviert.”,3,”Proxy deaktiviert”
Else
WSHShell.RegWrite “HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 1, “REG_DWORD”
wshshell.popup “Proxy erfolgreich aktiviert.”,3,”Proxy aktivert”End If
Set objPing = Nothing
End Function
http://www.google.com.hk/search?hl=en&source=hp&q=%EA%B8%80%EC%93%B4%EC%9D%B4+site%3Ahttp%3A%2F%2Fsaladtv.kr%2F&rlz=1R2GGLL_zh-CN&aq=f&aqi=&aql=&oq=&gs_rfai=