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 = "Prokurent Serwer umożliwiać"
const MSG_AUTO_CONFIG_SCRIPT = "Auto config pismo umożliwiać"
const MSG_AUTO_DETECT_SETTINGS = "Samochód wykrywać położenie umożliwiać"
Ustalony objRegistry = GetObject ("winmgmts: {impersonationLevel=impersonate}! \ \" & strComputer & "\ korzeń \ brak: StdRegProv")
strKeyPath = "OPROGRAMOWANIE \ Microsoft \ Windows \ CurrentVersion \ Internetowy Położenie \ Związek"
strValueName = "DefaultConnectionSettings"
rtn = objRegistry.GetBinaryValue (HKEY_CURRENT_USER, strKeyPath, strValueName, binValue)
ciemnawy msg
Jeżeli rtn = (0) wtedy
wybrany skrzynka binValue (8)
skrzynka 3: msg = MSG_PROXY_SERVER
skrzynka 5: msg = MSG_AUTO_CONFIG_SCRIPT
skrzynka 7: msg = MSG_AUTO_CONFIG_SCRIPT & "i" & MSG_PROXY_SERVER
skrzynka 9: msg = MSG_AUTO_DETECT_SETTINGS
skrzynka 11: msg = MSG_PROXY_SERVER & "i" & MSG_AUTO_DETECT_SETTINGS
skrzynka 13: msg = MSG_AUTO_DETECT_SETTINGS & "i" & MSG_AUTO_CONFIG_SCRIPT
skrzynka 15: msg = MSG_PROXY_SERVER & "i" & MSG_AUTO_CONFIG_SCRIPT & "i" & MSG_AUTO_DETECT_SETTINGS
końcówka wybiórka
wscript.echo msg
Inny
wscript.echo "Błąd retreving archiwum wartość dla gospodarz" & strcomputer
Kończyć jeżeli
|