VBS - как получить настройки прокси-сервера DOMAIN для машины?

Question

Следующий код в файле VB Script позволит мне получить флаг включения прокси на машине. Например, у меня не включен прокси на моем компьютере, поэтому он возвращает «0».

Однако это компьютеры с доменом Windows, и в большинстве случаев я ничего не получаю - не 0, а пустое.

Я предполагаю, что это потому, что у меня есть политика домена, которая обеспечивает настройки прокси (как ON).

ТАК, вопрос в том, как мне это прочитать? Это другой ключ реестра, или я должен прочитать что-то совершенно другое, например, настройки сети?

const HKEY_CURRENT_USER = &H80000001
    Set oReg=GetObject( _
   "winmgmts:{impersonationLevel=impersonate}!\\" &_
    strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
oReg.GetDWORDValue _
   HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue

Answer 1

Если значение реестра ProxySettingsPerUser в ключе HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings равно 1, то прокси-сервер определяется для каждого пользователя (т. Е. Его можно получить из ключа HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings).

Если ProxySettingsPerUser равно 0затем прокси-сервер определяется для всего компьютера (т. е. настройки прокси хранятся в HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings).