 |
|
|
i took a shot running ie.vbs on windows 7 ent 64bit sp1. no luck, didnt work, the msg showed up like "cannot find index.dat".
the index.dat on my pc is located C:\Users\USERNAME\AppData\Local\Microsoft\Windows\History\Low\History.IE5
also see some other index.dat files in roaming profile... but just wonder why it couldnt be found?
|
|
|
|
|
|
|
Hi,
Here's an enhanced script version for FireFox and IE7 under winXP/Vista:
webviewer.zip
A user suggested this important VISTA note:
Thanks! I've tested it out on Vista Ultimate and it seems to work well, however it does not work if Vista's UAC security feature is enabled (unless you run it from an elevated command prompt)
M$ suggests you run the following to elevate the script:
elevate wscript “C:\windows\system32\IE_FireFox.vbs” –dli
Source: http://www.microsoft.com/technet/technetmag/issues/2007/06/UtilitySpotlight/default.aspx[
(-_-)
|
|
|
|
|
|
|
Hi,
Currently, this VBscript records your surfing habits into a file on your computer. But, seeing as I was bored this past weekend, I've created a website to track your surfing habits in REAL TIME and online!
Basically, it's a tiny IE Spy Keylogger (in assembly) to monitor surfing habits. If you're interested, please visit the site or suggest feedback.
http://www.KeyloggerOnline.com/index.php
Thanks!
modified on Saturday, January 9, 2010 9:11 AM
|
|
|
|
|
|
|
|
|
|
Great script. I have modified the MsgBox's to use vbYesNo (68), instead of vbOkCancel (65), in the Delete Index.dat files section.
Sometimes, I have the need to search for a specific URL string in the Index.dat files. I can create an InputBox to load the URL string into a variable, but where would I use this string to filter the data from the Index.dat files?
It looks like the Find Links in Index.dat file sub-routine is where you are extracting the URL's from the Index.dat file and writing them to the HTML file. Is this where I would want to filter the results that are written to the HTML file?
|
|
|
|
|
|
|
Look at this line:
oTextStream.WriteLine "<tr><td nowrap><font color=green size=2>"&sArray(0)&"</font></td>"+"<td nowrap><font color=red size=2> "&timeStamp&"</font></td>"&"<td nowrap><font size=2> <a href="&url&">"&url&"</a></font></td></tr>"
You could add a check before printing the url to see if it contains
your search string:
If InStr(url,"yoursearchstring")=0 Then
"print url"
End If
|
|
|
|
|
|
|
I've launched the script locally, it lists 13 users and some history...but not the history of my account (which is "tecn")
The spy.htm file is created at 09:03 but the at 09:15 it is still running with the progress bar saying: "Scanning tecn history files: 2"
I hitted Cancel but the windows is still running... then i terminated it?
Any hint of what is going on?
PS: the spy.htm reports the links for the other users but for my user there is only a very small
list (while it should be huge) and the link column is empty.
|
|
|
|
|
|
|
I just ran it today and had the same issue. User identified but the date and URL columns are blank.
WINXP with IE7
|
|
|
|
|
|
|
Hi,
Here's an enhanced script version for FireFox and IE7 under winXP/Vista:
webviewer.zip
A user suggested this important VISTA note:
Thanks! I've tested it out on Vista Ultimate and it seems to work well, however it does not work if Vista's UAC security feature is enabled (unless you run it from an elevated command prompt)
M$ suggests you run the following to elevate the script:
elevate wscript “C:\windows\system32\IE_FireFox.vbs” –dli
Source: http://www.microsoft.com/technet/technetmag/issues/2007/06/UtilitySpotlight/default.aspx[
(-_-)
|
|
|
|
|
|
|
I get permission denied errors at line 234 of IE.vbs, and line 260 of IE_Network.vbs. It comes up on the 4th user the first time it is run, and on the first user after that.
I am running it as the domain administrator in all cases.
User list looks like:
<valid user1>
Administrator
Administrator.<DomainName>
<valid user2>
<valid user3>
...
Any ideas?
-- Eric
|
|
|
|
|
|
|
Thanks for the suggested code.
I've included your changes into this thread:
http://www.codeproject.com/vbscript/Internet_Explorer_Spy.asp?df=100&forumid=25033&exp=0&select=2269816#xx2269816xx
and bundled it into a zip file for testing purposes. (see winXP.vbs)
I'll add them to the codeproject once it's working as designed.
Thanks again! 
|
|
|
|
|
|
|
How to count the printer printing pages
|
|
|
|
|
|
|
is get to someone's directory
but when he/she/it is using ie than should be small
|
|
|
|
|
|
|
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..........
Is possible to not store into history link all page visited with the macro?
Sub RICERCA_ABI_CAB()
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 "http://www.bancaroma.it/abicab/index.asp", 2
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
If wksList.Cells(lngRow, 3).Value = "" Then
With .document.Forms(0)
'Abi
.ABI.Value = Range("A" & lngRow)
'Cab
.CAB.Value = Range("B" & lngRow)
.submit
Application.StatusBar = "Processing row " &
lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count
End With
Do While Not CBool(InStrB(1, .document.URL, "?
search"))
DoEvents
Loop
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
On Error Resume Next
'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
Range("C" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(0).Cells(3).innerText)
Range("D" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(1).Cells(3).innerText)
Range("E" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(2).Cells(1).innerText)
Range("F" & lngRow) = UCase(.document.all.tags
("table").Item(1).Rows(3).Cells(1).innerText)
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
errHandler:
ie.Quit
Set ie = Nothing
Exit Sub
ActiveWorkbook.Save
End Sub
|
|
|
|
|
|
|
Thanks for the script.
However, instead of hacking in to the format of the history file (index.dat), it is better to use the IUrlHistoryStg and IUrlHistoryStg2 interfaces of IE. What do you think?
Regards,
Gautam Jain
|
|
|
|
|
|
|
I've briefly looked at this using google, and it seems the IUrlHistoryStg interface works for the current user only. If the interface could handle another user or networked computer, then it would be a nice feature.
Thanks for the tip!
Vengy! (-_-)
|
|
|
|
|
|
|
Your IE(VBScript Script File) can't read date and time of IE history which was linked after 1/20/2005 anymore.
Do you have any idea on that?
JP
|
|
|
|
|
|
|
Not sure why that happens. I know that Japanese date/time causes issues,
are you using a Chinese WinXP version?
Try clearing the IE History Cache. Also, I've seen entries appearing as 01/01/1662 - somehow the IE index.dat date gets corrupted by the browser?
Has anyone else had similar issues?
Thanks.
|
|
|
|
|
|
|
the date and time changes to '1601-1-1' in Chinese WIN 2000 Prof. and changes to '4/6/1626 8:17:08' PM in English Win XP Prof.
It works well before 1/21/05. The only thing I did is click 'IE' VBScript Script File and then click c:\spy.html.
Thanks,
|
|
|
|
|
|
|
That's weird that it works fine before 1/21/05 but not after?
I've noticed on occasion that the index.dat date/time stamps are sometimes reset to 1601-1-1. Not sure why the IE browser inserts that bogus date/time!?
As you know, Microsoft doesn't disclose much about the internal index.dat file format so it could be that my script is somehow mishandling the date/times. (I doubt it though 
Good luck!
|
|
|
|
|
|
|
Another user corrected the bug and I've updated the script. Cool!
1626-04-01 13:53:44 - http://forums.dpreview.com/...
Underlined line of code fixes 1626 date bug , at least it helped on my PC (W2K SP4)
Function AsciiToHex(sData)
Dim i, aTmp()
ReDim aTmp(Len(sData) - 1)
For i = 1 To Len(sData)
aTmp(i - 1) = Hex(Asc(Mid(sData, i)))
if len(aTmp(i - 1))=1 then aTmp(i - 1)="0"+ aTmp(i - 1)
Next
ASCIItoHex = aTmp
End Function
And thank you for your script, it was very useful in my writing a little tool in C# to view IE history on remote machines.
|
|
|
|
|
|
|
Being a network administrator for a large college I have the dubious task of keeping everything safe and secure. One person's idea of a "clean" site is anothers blasphemy. With so many cultures sitting beside each other I have found that once presented with a print out of some unsavoury sites that the students stop going there. I also transfer the data to a server side HOSTS file and use a batch file to download it to the local workstations piping all the nasties to 127.0.0.1. From then on all the sites are auto blocked
Saves a ton of time, aggravation, and any cultural backlash
Thanks tons !
Grant
|
|
|
|
|
|
|
Pretty sneaky to copy the banned website hosts file back to the client. Here's a quick vbscript I just threw together to accomplish the same thing without having to run any batch files:
' -------------------------------------------
Option Explicit
Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell")
Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject")
Dim strUserList
Dim strUserName
Dim Admin
Dim Admin_Password
Dim hosts
Dim windows
Admin = "Administrator"
Admin_Password = "PASSWORD!"
strUserList = "users.txt"
hosts = "hosts"
windows = "\WINDOWS\system32\drivers\etc\"
'wshShell.Run "cmd /c net view"
If oFso.FileExists(strUserList) then
Dim oFile : Set oFile = oFSO.OpenTextFile(strUserList, 1)
Do Until oFile.AtEndOfStream
strUserName = oFile.ReadLine
wshShell.Run "cmd /c net use \\"+strUserName+"\c$ "+Admin_Password+" /user:"+strUserName+"\"+Admin,0,True
If Not oFSO.FolderExists("\\"+strUserName+"\c$"+windows) Then
wscript.Echo "Unable to access \\"+strUserName+"\c$"+windows
Else
wscript.Echo "Copying "+hosts+" to "+strUserName
oFSO.CopyFile hosts,"\\"+strUserName+"\c$"+windows
If oFSO.FileExists("\\"+strUserName+"\c$"+windows+hosts) Then
wscript.Echo "Success."
Else
wscript.Echo "Failure."
End If
End If
Loop
oFile.Close
Else
wscript.Echo "Could not open " & strUserList
End if
wscript.quit
' -------------------------------------------
|
|
|
|
|
|
|
Thanks for the script ) I have to do some playing around, get the script to access the network share and copy my updated file over. We use a combo of Win98 and XP machines so I have to do the following. No real need to use a user variable and text file because this is done at every logon regardless of the user.
IF %os%=="Windows_NT" then goto xp
attrib -r c:\windows\hosts
copy \\servername\share\hosts c:\windows /Y
attrib +r c:\windows\hosts
goto end
:XP
attrib -r c:\windows\system32\drivers\etc\hosts
copy \\servername\share\hosts c:\windows\system32\drivers\etc /Y
attrib +r c:\windows\system32\drivers\etc\hosts
goto end
:end
Exit
|
|
|
|
|
|
|
On the wrong hand
Work hard and a bit of luck is the key to success. You don`t need to be genius, to be rich.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Rant 
Admin