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 = de „Server van de Volmacht wordt toegelaten“
const MSG_AUTO_CONFIG_SCRIPT = het „Autoconfigmanuscript wordt toegelaten“
const MSG_AUTO_DETECT_SETTINGS = de „Auto ontdekt de montages“ wordt toegelaten
Vastgestelde objRegistry = GetObject („winmgmts: {impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel\ gebrek: StdRegProv“)
strKeyPath = „de Verbindingen van de Montages \ van de Vensters \ CurrentVersion \ Internet van de SOFTWARE \ Microsoft \“
strValueName = „DefaultConnectionSettings“
rtn = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
schemerige msg
Als rtn = 0 toen
selecteer geval binValue (8)
geval 3: msg = MSG_PROXY_SERVER
geval 5: msg = MSG_AUTO_CONFIG_SCRIPT
geval 7: msg = MSG_AUTO_CONFIG_SCRIPT & „en“ & MSG_PROXY_SERVER
geval 9: msg = MSG_AUTO_DETECT_SETTINGS
geval 11: msg = MSG_PROXY_SERVER & „en“ & MSG_AUTO_DETECT_SETTINGS
geval 13: msg = MSG_AUTO_DETECT_SETTINGS & „en“ & MSG_AUTO_CONFIG_SCRIPT
geval 15: msg = MSG_PROXY_SERVER & „en“ & MSG_AUTO_CONFIG_SCRIPT & „en“ & MSG_AUTO_DETECT_SETTINGS
uitgezocht eind
wscript.echo msg
Anders
wscript.echo „retreving de registratiewaarde van de Fout voor gastheer“ & strcomputer
Eind als
|