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
le const MSG_PROXY_SERVER = « proxy server est permis »
le const MSG_AUTO_CONFIG_SCRIPT = « manuscrit automatique de config est permis »
le const MSG_AUTO_DETECT_SETTINGS = « automobile détectent des arrangements est permis »
objRegistry réglé = GetObject (« winmgmts : {impersonationLevel=impersonate} ! \ \ » et strComputer et « \ racine \ défaut : StdRegProv »)
strKeyPath = « LOGICIEL \ Microsoft \ Windows \ CurrentVersion \ arrangements \ raccordements d'Internet »
strValueName = « DefaultConnectionSettings »
RTN = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
faibles msg
Si RTN = 0 puis
choisir le binValue de cas (8)
affaire 3 : msg = MSG_PROXY_SERVER
affaire 5 : msg = MSG_AUTO_CONFIG_SCRIPT
affaire 7 : msg = MSG_AUTO_CONFIG_SCRIPT et « et » et MSG_PROXY_SERVER
affaire 9 : msg = MSG_AUTO_DETECT_SETTINGS
affaire 11 : msg = MSG_PROXY_SERVER et « et » et MSG_AUTO_DETECT_SETTINGS
affaire 13 : msg = MSG_AUTO_DETECT_SETTINGS et « et » et MSG_AUTO_CONFIG_SCRIPT
affaire 15 : msg = MSG_PROXY_SERVER et « et » et MSG_AUTO_CONFIG_SCRIPT et « et » et MSG_AUTO_DETECT_SETTINGS
extrémité choisie
msg de wscript.echo
Autrement
valeur retreving d'enregistrement d'erreur de wscript.echo « pour le centre serveur » et le strcomputer
Finir si
|