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 = ”närståendeserveren möjliggöras”,
const MSG_AUTO_CONFIG_SCRIPT = ”Auto config skrivar möjliggöras”,
const MSG_AUTO_DETECT_SETTINGS = ”automatiskn avkänner inställningar möjliggöras”,
Fastställdt objRegistry = GetObject (”winmgmts: {impersonationLevel=impersonate}! \ \” & strComputer & ”\ rotar \ standard: StdRegProv”)
strKeyPath = ”PROGRAMVARA \ Microsoft \ Windows \ CurrentVersion \ internetinställningar \ anslutningar”,
strValueName = ”DefaultConnectionSettings”,
rtn = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
dunkla msg
Om rtn = 0 därefter
välj fallbinValue (8)
fall 3: msg = MSG_PROXY_SERVER
fall 5: msg = MSG_AUTO_CONFIG_SCRIPT
fall 7: msg = MSG_AUTO_CONFIG_SCRIPT & ”och” & MSG_PROXY_SERVER
fall 9: msg = MSG_AUTO_DETECT_SETTINGS
fall 11: msg = MSG_PROXY_SERVER & ”och” & MSG_AUTO_DETECT_SETTINGS
fall 13: msg = MSG_AUTO_DETECT_SETTINGS & ”och” & MSG_AUTO_CONFIG_SCRIPT
fall 15: msg = MSG_PROXY_SERVER & ”och” & MSG_AUTO_CONFIG_SCRIPT & ”och” & MSG_AUTO_DETECT_SETTINGS
avsluta valt
wscript.echo-msg
Annars
wscript.echo ”retreving registrering för fel värderar för varar värd” & strcomputer
Avsluta om
|