[dba-Tech] Internet Explorer Browser Configuration

Marty,

Thank you.  Through further research on this situation I discovered that
what I was experiencing was not a function of the browser settings at all.
Although both workstations had the Google Deskbar installed with identical
settings, one workstation had the Google Toolbar installed as well.  It was
a stored preference within the Google Toolbar application that caused the
anomaly.  Apparently it is a known bug that thankfully has a small
work-around.

Thanks again,

Mark


-----Original Message-----
From: MartyConnelly [mailto:martyconnelly at shaw.ca] 
Sent: Monday, January 05, 2004 11:27 PM
To: Discussion of Hardware and Software issues
Subject: Re: [dba-Tech] Internet Explorer Browser Configuration


Well here is a start

Sub test()
Dim objIE As Object
'you might get some info here via application
Set objIE = CreateObject("internetexplorer.application")
  With objIE
    .navigate "about:blank"
    With .Document.parentWindow.Screen
      MsgBox .Width & " by " & .Height
    End With

  End With

  'or Use WMI may need to set reference to Microsoft WMI scripting 
library in Win9x

'see 
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/ScriptCen
ter/compmgmt/scrcm124.asp
Dim strComputer As String
Dim objWMiservice As Object
Dim colIESettings As Object
Dim strIESetting As Object
strComputer = "." 'set to local default or computer name

Set objWMiservice = GetObject("winmgmts:\\" & strComputer _
    & "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMiservice.ExecQuery _
    ("Select * from MicrosoftIE_Security")
For Each strIESetting In colIESettings
    Debug.Print "Zone name: " & strIESetting.Zone & "Security level: " & 
strIESetting.Level
Next
Set objWMiservice = GetObject("winmgmts:\\" & strComputer _
    & "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMiservice.ExecQuery _
    ("Select * from MicrosoftIE_Summary")
For Each strIESetting In colIESettings
  Debug.Print "Active printer: " & strIESetting.ActivePrinter
  Debug.Print "Build: " & strIESetting.Build
  Debug.Print "Cipher strength: " & strIESetting.CipherStrength
  Debug.Print "Content advisor: " & strIESetting.ContentAdvisor
  Debug.Print "IE Administration Kit installed: " & strIESetting.IEAKInstall
  Debug.Print "Language: " & strIESetting.Language
  Debug.Print "Name: " & strIESetting.Name
  Debug.Print "Path: " & strIESetting.Path
  Debug.Print "Product ID: " & strIESetting.ProductID
  Debug.Print "Version: " & strIESetting.Version
Next
Set objWMiservice = GetObject("winmgmts:\\" & strComputer _
    & "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMiservice.ExecQuery _
    ("Select * from MicrosoftIE_LANSettings")
For Each strIESetting In colIESettings
    Debug.Print "Autoconfiguration proxy: " & strIESetting.AutoConfigProxy
    Debug.Print "Autoconfiguration URL: " & strIESetting.AutoConfigURL
    Debug.Print "Autoconfiguration Proxy detection mode: " & 
strIESetting.AutoProxyDetectMode
    Debug.Print "Proxy: " & strIESetting.Proxy
    Debug.Print "Proxy override: " & strIESetting.ProxyOverride
    Debug.Print "Proxy server: " & strIESetting.ProxyServer Next End Sub


Mitsules, Mark S. (Newport News) wrote:

>Group,
>
>Does anyone know of a way to print out the current settings of Internet 
>Explorer?  I'm looking for an easy way to compare two workstations' 
>browser configurations (such as those found on the "Advanced" tab under 
>Tools/Internet Options).  Google has developed a very nice "Deskbar" 
>that works as expected on one workstation, but not on another, and I'd 
>like to know why.
>
>
>Thanks for any suggestions,
>
>Mark
>_______________________________________________
>dba-Tech mailing list
>dba-Tech at databaseadvisors.com 
>http://databaseadvisors.com/mailman/listinfo/dba-tech
>Website: http://www.databaseadvisors.com
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



_______________________________________________
dba-Tech mailing list
dba-Tech at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/dba-tech
Website: http://www.databaseadvisors.com