List contents of Internet Explorer History using VBS / WSH

So far I have the following code:

Const LOCAL_SETTINGS_HISTORY = &H22&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(LOCAL_SETTINGS_HISTORY)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path

Set colItems = objFolder.Items
For Each objItem in colItems
    Wscript.Echo objItem.Name
Next

When it runs, it does indeed show the contents of Internet Explorer History, although only as the category headings "3 Weeks Ago", "Last Week", "Monday" etc.! Is there any way of reading (and echoing) every item in the History list using WSH?
skrysiakAsked:
Who is Participating?
 
hclgroupConnect With a Mentor Commented:
That code may be outdated.

you may need to look index.dat if you want to read IE's history

check out the code here
http://www.codeproject.com/vbscript/Internet_Explorer_Spy.asp
0
 
skrysiakAuthor Commented:
Fantastic! Works fine with IE7 also.
0
All Courses

From novice to tech pro — start learning today.