You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > Computer Management > Internet Explorer
Quicklinks
NOTE: ActiveXperts Network Monitor ships with a large collection of VBScript scripts to monitor any aspect of your network. Most VBScript scripts also have a PowerShell implementation. Download Now »
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
("Select * from MicrosoftIE_LANSettings")
For Each strIESetting in colIESettings
Wscript.Echo "Autoconfiguration proxy: " & strIESetting.AutoConfigProxy
Wscript.Echo "Autoconfiguration URL: " & strIESetting.AutoConfigURL
Wscript.Echo "Autoconfiguration Proxy detection mode: " & _
strIESetting.AutoProxyDetectMode
Wscript.Echo "Proxy: " & strIESetting.Proxy
Wscript.Echo "Proxy override: " & strIESetting.ProxyOverride
Wscript.Echo "Proxy server: " & strIESetting.ProxyServer
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
("Select * from MicrosoftIE_Security")
For Each strIESetting in colIESettings
Wscript.Echo "Zone name: " & strIESetting.Zone
Wscript.Echo "Security level: " & strIESetting.Level
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
("Select * from MicrosoftIE_Summary")
For Each strIESetting in colIESettings
Wscript.Echo "Active printer: " & strIESetting.ActivePrinter
Wscript.Echo "Build: " & strIESetting.Build
Wscript.Echo "Cipher strength: " & strIESetting.CipherStrength
Wscript.Echo "Content advisor: " & strIESetting.ContentAdvisor
Wscript.Echo "IE Administration Kit installed: " & _
strIESetting.IEAKInstall
Wscript.Echo "Language: " & strIESetting.Language
Wscript.Echo "Name: " & strIESetting.Name
Wscript.Echo "Path: " & strIESetting.Path
Wscript.Echo "Product ID: " & strIESetting.ProductID
Wscript.Echo "Version: " & strIESetting.Version
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
("Select * from MicrosoftIE_Object")
For Each strIESetting in colIESettings
Wscript.Echo "Code base: " & strIESetting.CodeBase
Wscript.Echo "Program file: " & strIESetting.ProgramFile
Wscript.Echo "Status: " & strIESetting.Status
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
("Select * from MicrosoftIE_ConnectionSettings")
For Each strIESetting in colIESettings
Wscript.Echo "Allow Internet programs: " & _
strIESetting.AllowInternetPrograms
Wscript.Echo "Autoconfiguration URL: " & strIESetting.AutoConfigURL
Wscript.Echo "Auto disconnect: " & strIESetting.AutoDisconnect
Wscript.Echo "Autoconfiguration proxy detection mode: " & _
strIESetting.AutoProxyDetectMode
Wscript.Echo "Data encryption: " & strIESetting.DataEncryption
Wscript.Echo "Default: " & strIESetting.Default
Wscript.Echo "Default gateway: " & strIESetting.DefaultGateway
Wscript.Echo "Dialup server: " & strIESetting.DialUpServer
Wscript.Echo "Disconnect idle time: " & strIESetting.DisconnectIdleTime
Wscript.Echo "Encrypted password: " & strIESetting.EncryptedPassword
Wscript.Echo "IP address: " & strIESetting.IPAddress
Wscript.Echo "IP header compression: " & _
strIESetting.IPHeaderCompression
Wscript.Echo "Modem: " & strIESetting.Modem
Wscript.Echo "Name: " & strIESetting.Name
Wscript.Echo "Network logon: " & strIESetting.NetworkLogon
Wscript.Echo "Network protocols: " & strIESetting.NetworkProtocols
Wscript.Echo "Primary DNS server: " & strIESetting.PrimaryDNS
Wscript.Echo "Primary WINS server: " & strIESetting.PrimaryWINS
Wscript.Echo "Proxy: " & strIESetting.Proxy
Wscript.Echo "Proxy override: " & strIESetting.ProxyOverride
Wscript.Echo "Proxy server: " & strIESetting.ProxyServer
Wscript.Echo "Redial attempts: " & strIESetting.RedialAttempts
Wscript.Echo "Redial wait: " & strIESetting.RedialWait
Wscript.Echo "Script fileame: " & strIESetting.ScriptFileName
Wscript.Echo "Secondary DNS server: " & strIESetting.SecondaryDNS
Wscript.Echo "Secondary WINS server: " & strIESetting.SecondaryWINS
Wscript.Echo "Server assigned IP address: " & _
strIESetting.ServerAssignedIPAddress
Wscript.Echo "Server assigned name server: " & _
strIESetting.ServerAssignedNameServer
Wscript.Echo "Software compression: " & strIESetting.SoftwareCompression
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
("Select * from MicrosoftIE_ConnectionSummary")
For Each strIESetting in colIESettings
Wscript.Echo "Connection preference: " & _
strIESetting.ConnectionPreference
Wscript.Echo "HTTP 1.1. enabled: " & strIESetting.EnableHTTP11
Wscript.Echo "Proxy HTTP 1.1. enabled: " & strIESetting.ProxyHTTP11
Next
Retrieving Internet Explorer File Version Information
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer _
& "\root\cimv2\Applications\MicrosoftIE")
Set colIESettings = objWMIService.ExecQuery _
("Select * from MicrosoftIE_Cache")
For Each strIESetting in colIESettings
Wscript.Echo "Page refresh type: " & strIESetting.PageRefreshType
Wscript.Echo "Temporary Internet files folder: " & _
strIESetting.TempInternetFilesFolder
Next