Click here to Skip to main content
12,549,230 members (46,518 online)
Click here to Skip to main content
Add your own
alternative version


96 bookmarked

Find out what your friends/co-workers have been doing on the Internet!

, 23 Jul 2005
Rate this:
Please Sign up or sign in to vote.
Internet Explorer: INDEX.DAT files keep a list of websites you have visited, cookies received and files opened/downloaded. As a result anyone can find out what you have been doing on the Internet!

What is an Index.dat file?

Index.dat are files hidden on your computer that contain many of the Web sites that you have visited. Every URL and Web page is listed there. This script is for you, if internet privacy is an issue or you're just curious to see what surfing habits people have on your PC or Network. In WinXP, here's where you'll usually find them:

C:\Documents and Settings\<Username>\Local Settings\History\History.IE5\index.dat

How do these scripts work?

IE.vbs and IE_Network.vbs allow you to find, scan, view and erase all local/remote history index.dat files. Also, records precise URL visit time stamps. Scans are very fast and index.dat file parsing is done using 100% VBScript. Results are logged locally to C:\spy.htm or C:\Machine-MM-DD-YYYY.htm. For example:

It's free!

Yep, feel free to modify this script for whatever nefarious activities you like. It's amazing to see so many websites charging $24.95/$39.95 for bloated programs which basically function the same way as this script! If you like this script and it runs correctly, please feel free to email me. It'll give me a better idea on how it's functioning on your systems. Of course, any bugs can be tracked below in the message board section. Thanks!

Enjoy! (-_-)


This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


About the Author

United States United States
No Biography provided

You may also be interested in...


Comments and Discussions

Questiondoes it work on windows 7? Pin
Justin039-Apr-12 20:32
memberJustin039-Apr-12 20:32 
AnswerRe: does it work on windows 7? Pin
cyber_flash10-Apr-12 10:10
membercyber_flash10-Apr-12 10:10 
GeneralIE Spy online in Real Time! [modified] Pin
cyber_flash20-Aug-09 5:23
membercyber_flash20-Aug-09 5:23 
GeneralNew Download Url [modified] Pin
cyber_flash27-Apr-09 16:35
membercyber_flash27-Apr-09 16:35 
GeneralRe: New Download Url Pin
Randy Price19-Aug-09 7:22
memberRandy Price19-Aug-09 7:22 
GeneralRe: New Download Url Pin
cyber_flash19-Aug-09 16:59
membercyber_flash19-Aug-09 16:59 
GeneralGood script but a problem... Pin
andrea77714-Apr-09 21:24
memberandrea77714-Apr-09 21:24 
GeneralRe: Good script but a problem... Pin
kwood326-Aug-09 6:51
memberkwood326-Aug-09 6:51 
GeneralDownload FireFox/IE scripts for Windows XP/VISTA! Pin
cyber_flash12-Oct-07 17:59
membercyber_flash12-Oct-07 17:59 
GeneralPermission denied errors Pin
Eggibba6-Sep-07 10:39
memberEggibba6-Sep-07 10:39 
GeneralRe: Permission denied errors Pin
cyber_flash12-Oct-07 18:07
membercyber_flash12-Oct-07 18:07 
Generalprinting pages count Pin
ThangaDharma6-Oct-05 7:25
memberThangaDharma6-Oct-05 7:25 
Generalsmall problem Pin
Tibor Blazko25-Jul-05 23:47
memberTibor Blazko25-Jul-05 23:47 
Generalnonavhistory Pin
sal2125-Jul-05 22:59
membersal2125-Jul-05 22:59 
hi all, i have this macro and 9118 record into sheet ABICAB. I have seen in my History link (Cronology of IE) the macro make for each record scanned a new ink!!!!!!!!!!! after onlly 6 minutes of macro run, i have 156 new link into history list acccccc..........Frown | :-(

Is possible to not store into history link all page visited with the macro?


Dim ie As Object
Dim lngRow As Long
Dim lngMaxRow As Long
Dim wksList As Worksheet

Set wksList = ActiveWorkbook.Worksheets("ABICAB")
Set ie = CreateObject("InternetExplorer.Application")

On Error GoTo errHandler
lngMaxRow = Range("A65536").End(xlUp).Row
With ie
.Visible = True
For lngRow = 2 To lngMaxRow
.navigate "", 2
Do While .busy
Do While .ReadyState <> 4

If wksList.Cells(lngRow, 3).Value = "" Then

With .document.Forms(0)
.ABI.Value = Range("A" & lngRow)
.CAB.Value = Range("B" & lngRow)

Application.StatusBar = "Processing row " &
lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count

End With
Do While Not CBool(InStrB(1, .document.URL, "?
Do While .busy
Do While .ReadyState <> 4
On Error Resume Next
Range("C" & lngRow) = UCase(.document.all.tags
Range("D" & lngRow) = UCase(.document.all.tags
Range("E" & lngRow) = UCase(.document.all.tags
Range("F" & lngRow) = UCase(.document.all.tags
Range("G" & lngRow) = Format(UCase(.document.all.tags
("table").Item(1).Rows(4).Cells(1).innerText), "#00000")

On Error GoTo errHandler
End If
Next lngRow
End With

Set ie = Nothing
Exit Sub


End Sub
GeneralGood Script. Thanks Pin
Gautam Jain23-Jul-05 0:03
memberGautam Jain23-Jul-05 0:03 
GeneralRe: Good Script. Thanks Pin
cyber_flash23-Jul-05 1:23
membercyber_flash23-Jul-05 1:23 
General1/20/2005 Pin
Jianping Yan23-Jan-05 9:04
memberJianping Yan23-Jan-05 9:04 
GeneralRe: 1/20/2005 Pin
cyber_flash23-Jan-05 14:24
membercyber_flash23-Jan-05 14:24 
GeneralRe: 1/20/2005 Pin
Jianping Yan23-Jan-05 14:46
memberJianping Yan23-Jan-05 14:46 
GeneralRe: 1/20/2005 Pin
cyber_flash24-Jan-05 2:22
membercyber_flash24-Jan-05 2:22 
GeneralFixed! 1/20/2005 Pin
cyber_flash9-Aug-05 14:18
membercyber_flash9-Aug-05 14:18 
GeneralExcellent Script ! Pin
Dusty202021-Jan-05 5:17
memberDusty202021-Jan-05 5:17 
GeneralRe: Excellent Script ! Pin
cyber_flash21-Jan-05 8:03
membercyber_flash21-Jan-05 8:03 
GeneralRe: Excellent Script ! Pin
Dusty202021-Jan-05 9:01
memberDusty202021-Jan-05 9:01 
GeneralDangerous ... Pin
goodmast3r13-Jan-05 21:20
membergoodmast3r13-Jan-05 21:20 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.161021.1 | Last Updated 23 Jul 2005
Article Copyright 2003 by cyber_flash
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid