[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/ScriptCenter/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