Const HKEY_CURRENT_USER = &H80000001
strComputer = „.“
const ALL_ENABLED = 15
const AUTO_DETECT_AUTO_CONFIG_SCRIPT = 13
const AUTO_DETECT_PROXY_SERVER = 11
const PROXY_SERVER = 3
const AUTO_DETECT = 9
const AUTO_CONFIG_SCRIPT_PROXY_SERVER = 7
const AUTO_CONFIG_SCRIPT = 5
const MSG_PROXY_SERVER = „Proxy-Server ermöglicht“
const MSG_AUTO_CONFIG_SCRIPT = „Selbstkonfigurationsindex ermöglicht“
const MSG_AUTO_DETECT_SETTINGS = „Automobil ermitteln Einstellungen ermöglicht“
Gesetztes objRegistry = GetObject („winmgmts: {impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ Rückstellung: StdRegProv“)
strKeyPath = „SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Internet-Einstellungen \ Anschlüsse“
strValueName = „DefaultConnectionSettings“
ATR = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
schwache Msg
Wenn ATR = 0 dann
Fall binValue vorwählen (8)
Rechtssache 3: Msg = MSG_PROXY_SERVER
Rechtssache 5: Msg = MSG_AUTO_CONFIG_SCRIPT
Rechtssache 7: Msg = MSG_AUTO_CONFIG_SCRIPT u. „und“ u. MSG_PROXY_SERVER
Rechtssache 9: Msg = MSG_AUTO_DETECT_SETTINGS
Rechtssache 11: Msg = MSG_PROXY_SERVER u. „und“ u. MSG_AUTO_DETECT_SETTINGS
Rechtssache 13: Msg = MSG_AUTO_DETECT_SETTINGS u. „und“ u. MSG_AUTO_CONFIG_SCRIPT
Rechtssache 15: Msg = MSG_PROXY_SERVER u. „und“ u. MSG_AUTO_CONFIG_SCRIPT u. „und“ u. MSG_AUTO_DETECT_SETTINGS
Ende auserwählt
wscript.echo Msg
Sonst
wscript.echo „retreving Registerwert der Störung für Wirt“ u. strcomputer
Beenden wenn
|