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
se permite el const MSG_PROXY_SERVER = “proxy server”
se permite el const MSG_AUTO_CONFIG_SCRIPT = “escritura auto de los config”
se permite el const MSG_AUTO_DETECT_SETTINGS = “automóvil detecta ajustes”
objRegistry determinado = GetObject (“winmgmts: ¡{impersonationLevel=impersonate}! \ \” y strComputer y “\ raíz \ defecto: StdRegProv”)
strKeyPath = “SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ ajustes \ conexiones del Internet”
strValueName = “DefaultConnectionSettings”
rtn = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
msg déviles
Si rtn = 0 entonces
seleccionar el binValue del caso (8)
caso 3: msg = MSG_PROXY_SERVER
caso 5: msg = MSG_AUTO_CONFIG_SCRIPT
caso 7: msg = MSG_AUTO_CONFIG_SCRIPT y “y” y MSG_PROXY_SERVER
caso 9: msg = MSG_AUTO_DETECT_SETTINGS
caso 11: msg = MSG_PROXY_SERVER y “y” y MSG_AUTO_DETECT_SETTINGS
caso 13: msg = MSG_AUTO_DETECT_SETTINGS y “y” y MSG_AUTO_CONFIG_SCRIPT
caso 15: msg = MSG_PROXY_SERVER y “y” y MSG_AUTO_CONFIG_SCRIPT y “y” y MSG_AUTO_DETECT_SETTINGS
extremo selecto
msg de wscript.echo
valor retreving del registro del error de wscript.echo “para el anfitrión” y el strcomputer
Terminar si
|