Вопрос : Исследователь «автомобиль интернета обнаруживает установки»

Hi,

We имеет требование иметь «автоматически обнаружить значение установки» проверило внутри соединение Tab исследователя интернета. Мы проверяли и нашли что значение регистратуры ответственн для этих же как below.
HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ установки \ соединения \ DefaultConnectionSettings

The 9th Internet управления значения «автоматически обнаруживает установки " как below
46,00,00,00, c5,0c, 00,00,0b, 00.00.00, 0f, 00.00, \
00,31,30,2e, 31,33,2e, 30,2e, 35,36,3a, 38,30,38,30,1a, 00,00, 00.31.30, 2e, 2a, 3b, \
2a, 2e, 2a, 2e, 69,74,63,3b, 6f, 72.61.63, 2a,3b, 3c, 6c, 6f, 63,61, 6c, 3e, 6f, 00,00,00 \
66,69,6c, 65,3a, 2f, 2f, 43,3a, 5c, 44,6f, 63,75,6d, 65,6e, 74,73, 20,61,6e, 64,20,53 \
65,74,74,69,6e, 67,73,5c, 39, 35.34.39, 36,5c, 41,70,70,6c, 69, 63.61.74, 69,6f, 6e, \
20,44,61,74,61,5c, 4a, 75,6e, 69.70.65, 72,20,4e, 65,74,77,6f, 72,6b, 73, 5c, 4e, 65, \
74,77,6f,72,6b, 20,43,6f, 6e, 6e, 65.63, 74,20,36,2e, 35,2e, 30, 5c, 69,6e, 73,74,61 \
6e, 74,70,72,6f, 78,79,2e, 70, 61.63.05, 00,00,00,00,00,00,00, 20,0d, dc, 4e, 67,1e, \ cb
, 01,00,00,00,00,00,00,00, 00.00.00, 00,00,01,00,00,00,02, 00.00.00, 0a, 0a, 04, \
09,00,00,00,00,00,00,00,00, 03.00.00, 00, f8,20, e0,08, c8,27, 38,0c, 00, 00,00,00 \
00,00,00,00,01,00,00,00,6b, 00.00.00, 1d,00,00,00,24,0d, 2e, 0c, 00.00, 00,00,00 \
00,00,00,00,00,00,00,00,00, 00.00.00, 00,00,00,01,00,00,00, 6b, 00.00, 00,1d, 00, \
00,00,03,00,00,00,00,00,00, 00.00.00, 00,00,6b, 00,00,00,1a, 00.00.00, 00,00,00 \
00,00,00,00,00,00,00,00,00, 00.00.00, 00,00,00,80,3f, 50,01, значение 00,00

The нужно быть OB для держать его тикало и 03 для потребности uncheck.

We сценарий изменить только 9th значение и не все значения по мере того как те изменят другие установки в интернете explorer.

I имеют судимое к используйте внизу сценарий для того чтобы fetch значение но не happening.
Dim byteArray () как Byte

keyValue = «средство программирования \ Майкрософт \ Windows \ CurrentVersion \ установки \ соединения Internet "/>regVersion =
ubKey (keyValue, поистине)
MsgBox
regVersion.Close/>byteArray = regVersion.GetValue
ltConnectionSettings», поистине) () (byteArray (0) &» «& byteArray (1) &» «& byteArray (2) &» «& byteArray (3) &» «& byteArray (4) &» «& byteArray (5))
class=

Ответ : Исследователь «автомобиль интернета обнаруживает установки»

Несчастливо я не могу помочь вам больше…, котор он кажется что эта подпрограмма делает работу (принятую от такой же резьбы):

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36:

'Польза примера IEautomaticallydetect "ОФФо " IEautomaticallydetect IEautomaticallydetect «выставка» "ОН"о IEautomaticallydetect IEautomaticallydetect «выставка» wscript.quit SUB IEautomaticallydetect (состояние) 'howeasyisthat.com 'Shold параметра было установлено к "ОФФу ", "ОН"у или «выставке». 'Это читает и пишет к HKCU \ средству программирования \ Майкрософт \ Windows \ CurrentVersion \ установкам интернета \ соединениям \ DefaultConnectionSettings 'установите или прочитайте исследователь интернета автоматически обнаружьте средство. Когда полномочие установлено, это должно нормальн быть. Когда никакие установки полномочия не установлены, 'обычно самое лучшее для того чтобы иметь эту установку быть повернутым дальше. [/size] ТУСКЛОЕ sKey, sValue, binaryVal Тусклое oReg Установите oReg=GetObject («winmgmts: {impersonationLevel=impersonate}! \ \. \ корень \ невыполнение обязательства: StdRegProv») 'для througout деятельностей регистратуры Const HKCU=&H80000001 sKey = «средство программирования \ Майкрософт \ Windows \ CurrentVersion \ установки \ соединения интернета» sValue = «DefaultConnectionSettings» oReg.GetBinaryValue HKCU, sKey, sValue, binaryVal выберите lcase случая (состояние) покрывайте "ОН"о binaryVal (8) = binaryVal ('усилие 8) ИЛИ 8 Autodetect дальше покрывайте "ОФФо " binaryVal (8) = binaryVal (8) усилие XOR 8 'Autodetect случай «выставка» wscript.echo «автоматически обнаруживает установлен к» & ((binaryVal (8) и 8) = 8) покрывайте другое wscript.echo «инвалидный параметр - IEautomaticallydetect дальше, или выставку» закончите отборное если lcase (состояние) = "ОН"о или lcase (состояние) = "ОФФо " после этого oReg.SetBinaryValue HKCU, sKey, sValue, binaryVal подводная лодка конца