Изменить опцию в Internet Explorer через VB 6.0

Формулировка задачи:

Подскажите как мне изменить галочку (Internet options -> LAN settings -> Use automatic configuration script) из True в False в интеренет эксплорере через VB6.0 .
помогите плиз.

Решение задачи: «Изменить опцию в Internet Explorer через VB 6.0»

textual
                            Листинг программы 
                        

                            <font color="00AA00">' List Internet Explorer Connection Settings</font>

<font color="00AA00">' Windows Server 2003 : Yes</font>
<font color="00AA00">' Windows XP : Yes</font>
<font color="00AA00">' Windows 2000 : Yes</font>
<font color="00AA00">' Windows NT 4.0 : Yes</font>
<font color="00AA00">' Windows 98 : Yes</font>

strComputer = <font color="teal">"."</font>
<font color="blue">Set</font> objWMIService = GetObject(<font color="teal">"winmgmts:"</font> _
    & <font color="teal">"{impersonationLevel=impersonate}!\\"</font> & strComputer & _
        <font color="teal">"\root\cimv2\Applications\MicrosoftIE"</font>)

<font color="blue">Set</font> colIESettings = objWMIService.ExecQuery _
    (<font color="teal">"Select * from MicrosoftIE_ConnectionSettings"</font>)

<font color="blue">For</font> <font color="blue">Each</font> strIESetting <font color="blue">in</font> colIESettings
    Wscript.Echo <font color="teal">"Allow Internet programs: "</font> & _
        strIESetting.AllowInternetPrograms
    Wscript.Echo <font color="teal">"Autoconfiguration URL: "</font> & strIESetting.AutoConfigURL
    Wscript.Echo <font color="teal">"Auto disconnect: "</font> & strIESetting.AutoDisconnect
    Wscript.Echo <font color="teal">"Autoconfiguration proxy detection mode: "</font> & _
        strIESetting.AutoProxyDetectMode
    Wscript.Echo <font color="teal">"Data encryption: "</font> & strIESetting.DataEncryption
    Wscript.Echo <font color="teal">"Default: "</font> & strIESetting.Default
    Wscript.Echo <font color="teal">"Default gateway: "</font> & strIESetting.DefaultGateway
    Wscript.Echo <font color="teal">"Dialup server: "</font> & strIESetting.DialUpServer
    Wscript.Echo <font color="teal">"Disconnect idle time: "</font> & strIESetting.DisconnectIdleTime
    Wscript.Echo <font color="teal">"Encrypted password: "</font> & strIESetting.EncryptedPassword
    Wscript.Echo <font color="teal">"IP address: "</font> & strIESetting.IPAddress
    Wscript.Echo <font color="teal">"IP header compression: "</font> & _
        strIESetting.IPHeaderCompression
    Wscript.Echo <font color="teal">"Modem: "</font> & strIESetting.Modem
    Wscript.Echo <font color="teal">"Name: "</font> & strIESetting.<font color="blue">Name</font>
    Wscript.Echo <font color="teal">"Network logon: "</font> & strIESetting.NetworkLogon
    Wscript.Echo <font color="teal">"Network protocols: "</font> & strIESetting.NetworkProtocols
    Wscript.Echo <font color="teal">"Primary DNS server: "</font> & strIESetting.PrimaryDNS
    Wscript.Echo <font color="teal">"Primary WINS server: "</font> & strIESetting.PrimaryWINS
    Wscript.Echo <font color="teal">"Proxy: "</font> & strIESetting.Proxy
    Wscript.Echo <font color="teal">"Proxy override: "</font> & strIESetting.ProxyOverride
    Wscript.Echo <font color="teal">"Proxy server: "</font> & strIESetting.ProxyServer
    Wscript.Echo <font color="teal">"Redial attempts: "</font> & strIESetting.RedialAttempts
    Wscript.Echo <font color="teal">"Redial wait: "</font> & strIESetting.RedialWait
    Wscript.Echo <font color="teal">"Script fileame: "</font> & strIESetting.ScriptFileName
    Wscript.Echo <font color="teal">"Secondary DNS server: "</font> & strIESetting.SecondaryDNS
    Wscript.Echo <font color="teal">"Secondary WINS server: "</font> & strIESetting.SecondaryWINS
    Wscript.Echo <font color="teal">"Server assigned IP address: "</font> & _
        strIESetting.ServerAssignedIPAddress
    Wscript.Echo <font color="teal">"Server assigned name server: "</font> & _
        strIESetting.ServerAssignedNameServer
    Wscript.Echo <font color="teal">"Software compression: "</font> & strIESetting.SoftwareCompression
<font color="blue">Next</font>
                        