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 = «сервер полномочия позволено»
const MSG_AUTO_CONFIG_SCRIPT = «автоматический сценарий config позволено»
const MSG_AUTO_DETECT_SETTINGS = «автомобиль обнаруживает установки позволено»
Установленное objRegistry = GetObject («winmgmts: {impersonationLevel=impersonate}! \ \» & strComputer & «\ корень \ невыполнение обязательства: StdRegProv»)
strKeyPath = «СРЕДСТВО ПРОГРАММИРОВАНИЯ \ Майкрософт \ Windows \ CurrentVersion \ установки \ соединения интернета»
strValueName = «DefaultConnectionSettings»
rtn = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
тусклые msg
Если rtn = 0 после этого
выберите binValue случая (8)
случай 3: msg = MSG_PROXY_SERVER
случай 5: msg = MSG_AUTO_CONFIG_SCRIPT
случай 7: msg = MSG_AUTO_CONFIG_SCRIPT & «и» & MSG_PROXY_SERVER
случай 9: msg = MSG_AUTO_DETECT_SETTINGS
случай 11: msg = MSG_PROXY_SERVER & «и» & MSG_AUTO_DETECT_SETTINGS
случай 13: msg = MSG_AUTO_DETECT_SETTINGS & «и» & MSG_AUTO_CONFIG_SCRIPT
случай 15: msg = MSG_PROXY_SERVER & «и» & MSG_AUTO_CONFIG_SCRIPT & «и» & MSG_AUTO_DETECT_SETTINGS
конец отборный
msg wscript.echo
Еще
значение регистратуры ошибки wscript.echo «retreving для хозяина» & strcomputer
Закончитесь если
|