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
il const MSG_PROXY_SERVER = “proxy server è permesso a„
il const MSG_AUTO_CONFIG_SCRIPT = “scritto auto di config è permesso a„
il const MSG_AUTO_DETECT_SETTINGS = “automobile rileva le regolazioni è permesso a„
objRegistry stabilito = GetObject (“winmgmts: {impersonationLevel=impersonate}! \ \„ & strComputer & “\ radice \ difetto: StdRegProv„)
strKeyPath = “SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ regolazioni \ collegamenti del Internet„
strValueName = “DefaultConnectionSettings„
RTN = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
msg fiochi
Se RTN = 0 allora
selezionare il binValue di 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
estremità prescelta
msg di wscript.echo
Altrimenti
valore retreving di registrazione di errore di wscript.echo “per l'ospite„ & lo strcomputer
Concluder se
|