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
o const MSG_PROXY_SERVER = “proxy server é permitido”
o const MSG_AUTO_CONFIG_SCRIPT = “auto certificado dos config é permitido”
o const MSG_AUTO_DETECT_SETTINGS = “automóvel deteta ajustes é permitido”
objRegistry ajustado = GetObject (“winmgmts: {impersonationLevel=impersonate}! \ \” & strComputer & “\ raiz \ defeito: StdRegProv”)
strKeyPath = “SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ ajustes \ conexões do Internet”
strValueName = “DefaultConnectionSettings”
rtn = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
msg não ofuscantes
Se rtn = 0 então
selecionar o binValue do caso (8)
caso 3: msg = MSG_PROXY_SERVER
caso 5: msg = MSG_AUTO_CONFIG_SCRIPT
caso 7: msg = MSG_AUTO_CONFIG_SCRIPT & “e” & MSG_PROXY_SERVER
caso 9: msg = MSG_AUTO_DETECT_SETTINGS
caso 11: msg = MSG_PROXY_SERVER & “e” & MSG_AUTO_DETECT_SETTINGS
caso 13: msg = MSG_AUTO_DETECT_SETTINGS & “e” & MSG_AUTO_CONFIG_SCRIPT
caso 15: msg = MSG_PROXY_SERVER & “e” & MSG_AUTO_CONFIG_SCRIPT & “e” & MSG_AUTO_DETECT_SETTINGS
extremidade seleta
msg de wscript.echo
Mais
valor retreving do registro erro de wscript.echo do “para o anfitrião” & o strcomputer
Terminar se
|