Retrieve Internet Explorer file settings

Please let us know how useful you find this tip by rating it below. Do you have a useful Windows tip, timesaver or workaround to share? Submit it to our tip contest and you could win a prize!

The VB Script below retrieves the list of Internet Explorer files and important information about them such as path, date, size and version.

Before you run it however, make sure you have the latest scripting engines on your workstation. You can download the latest scripting engines here: Microsoft Scripting Home Page.

Copy and paste the following script (between the lines) into Notepad -- make sure you have Word Wrap disabled -- and then save it with a .vbs extension.

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("COMPUTERNAMES")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="


Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2
\Applications\MicrosoftIE")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftIE_FileVersion", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "Company: " & objItem.Company
WScript.Echo "Date: " & WMIDateStringToDate(objItem.Date)
WScript.Echo "Description: " & objItem.Description
WScript.Echo "File: " & objItem.File
WScript.Echo "Path: " & objItem.Path
WScript.Echo "SettingID: " & objItem.SettingID
WScript.Echo "Size: " & objItem.Size
WScript.Echo "Version: " & objItem.Version
WScript.Echo
Next
Next


Function WMIDateStringToDate(dtmDate)
WScript.Echo dtm: 
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) 
& ":" & Mid(dtmDate,13, 2))
End Function