Retrieve Internet Explorer file settings

Use this VB Script to get a list of Internet Explorer file information such as path, date, size and version.

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

 


Rod Trent, manager of myITforum.com and Microsoft MVP, is a leading expert on Microsoft Systems Management Server. He has more than 18 years of IT experience -- eight of which have been dedicated to SMS. He is the author of Microsoft SMS Installer, Admin911: SMS, and IIS 5.0: A Beginner's Guide, and has written, literally, thousands of articles on technology topics.

This was first published in March 2005

Dig deeper on 64-bit Architecture for Windows

Pro+

Features

Enjoy the benefits of Pro+ membership, learn more and join.

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchServerVirtualization

SearchCloudComputing

SearchExchange

SearchSQLServer

SearchWinIT

SearchEnterpriseDesktop

SearchVirtualDesktop

Close