Get internet address (URL) of HTML files in TIF folder 2

Dbyte · May 17, 2007

When I view the TIFs thru IE I see a column called "Internet Address". However, when I try to view this column in Windows Explorer (after changing WE settings to show hidden & system OS files) there is no column w/ this name available. Is there a way in VBScript to get this info for files in the TIF folders? I want to output this value to a text file for all HTML files in the TIF folders. Here's the code where I am having trouble:

Code:

For Each File in oFolder.Files
   Set oFile = FSO.GetFile(File)
   If UCase(Left(oFile.Type, 4)) = "HTML" Then
      If DateValue(oFile.DateLastAccessed) = CDate(Date()) Then
         oFiletxt.WriteLine(oFile.Name)
         oFiletxt.WriteLine(oFile.InternetAddress)
      End If
   End If
Next

The oFile.Name line works fine but the oFile.InternetAddress line does not. I have also tried oFile.URL - didn't work.

If someone could provide me with the correct name for this property I'd really appreciate it - thanks.

markdmac · May 17, 2007

Only the following properties are available for the file object:

Attributes
Syntax: object.Attributes [ =newattributes]

This property allows us to get or change the various attributes of a file.

DateCreated
Syntax: object.DateCreated

This property gets the date and time that the file was created.

DateLastAccessed
Syntax: object.DateLastAccessed

Gets the date and time that the file was last accessed

DateLastModified
Syntax: object.DateLastModified

This property returns the date and time that the file was last modified.

Drive
Syntax: object.Drive

Returns the drive letter of the drive where the file is located.

Name
Syntax: object.Name

Lets us get or change the name of the specified file.

ParentFolder
Syntax: object.ParentFolder

This property gets the Folder object for the parent relating to the specified file.

Path
Syntax: object.Path

This property returns a file's path.

ShortName
Syntax: object.ShortName

Returns the short version of a filename (using the 8.3 convention). e.g. Employees.html is truncated to Employ~1.htm

ShortPath
Syntax: object.ShortPath

Returns the short version of the file path (this is the path with any folder and file names truncated as above).

Size
Syntax: object.Size

Returns the size of a file in bytes.

Type
Syntax: object.Type

Returns a string containing the file type description. e.g. For files ending in .TXT, "Text Document" is returned

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

dm4ever · May 17, 2007

Shell.Application can get you more info, but as you can see...not InternetAddress

http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_lunl.mspx?mfr=true

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

Dbyte · May 18, 2007

Thanks guys. It appears this info resides in the index.dat file, which is a different beast altogether. I found some VBScript here that gets the info I need, but now I need to figure out how to incorporate only the necessary pieces of it into my own script.

BTW, props to cyber_flash for pulling it all together. That's some serious script wizardry!

Dbyte · May 18, 2007

OK, so I have made some modifications to the code I DL'd from the link above & now I get a HTML doc that shows the browser history for ALL users. Problem is that I only want the history for the currently logged on user. Here is the code that I believe controls this:

Code:

'Sub to locate History folder(s)
Sub LocateHistoryFolder() 
    ' Example: C:\Documents and Settings\<username>\Local Settings\History
    ' HistoryPath(0) = C:
    ' HistoryPath(1) = Documents and Settings
    ' HistoryPath(2) = <username>
    ' HistoryPath(3) = Local Settings
    ' HistoryPath(4) = History 
    HistoryPath=split(oWShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History"),"\")
End Sub


'Sub to find index.dat file(s)
Sub RecurseFilesAndFolders(oRoot, sFileEval)
    Dim oSubFolder, oFile, oRegExp

    Set oRegExp = New RegExp
    oRegExp.IgnoreCase = True

    If Not (sFileEval = "") Then
      oRegExp.Pattern = sFileEval
      For Each oFile in oRoot.Files
        If (oRegExp.Test(oFile.Name)) Then
          ReDim Preserve arrFiles(UBound(arrFiles) + 1)
          arrFiles(UBound(arrFiles)) = oFile.Path
          index=1 ' Found at least one index.dat file!
        End If
      Next
    End If
    
    For Each oSubFolder In oRoot.SubFolders
      RecurseFilesAndFolders oSubFolder, sFileEval
    Next
End Sub

I have already set a global variable, sUser, to get the current user. Any idea on how I can modify this code using the sUser variable to get data for only the current user?

dm4ever · May 18, 2007

Seems like you would just need to get rid of the RecurseFilesAndFolders sub and just use the information you retrieve with the LocateHistoryFolder...that key you're looking at there has the path to the current users index.dat

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

PHV · May 18, 2007

And for the TIF folder:
MsgBox RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

Dbyte · May 18, 2007

dm4ever, when I made the changes you suggested I got an empty HTML file. Changing the RegRead line as PHV suggested gave me an error: "subscription out of range:'[number: 3]'". Looking above I also see that I left out some code that is likely affecting this. This is my updated code after removing the Recursive Sub & modifying the RegRead line:

Code:

'Sub to start SpyScan
Sub StartSpyScan()
   Dim index_folder, history_folder, oSubFolder, oStartDir, sFileRegExPattern, user
    
   LocateHistoryFolder
   index_folder=HistoryPath(0)&"\"&HistoryPath(1)
   sFileRegExPattern = "\index.dat$"
   Set oStartDir = oFSO.GetFolder(index_folder)
      
   For Each oSubFolder In oStartDir.SubFolders
      history_folder=oSubFolder.Path&"\"&HistoryPath(3)&"\"&HistoryPath(4)&"\"&"History.IE5"   [COLOR=red]<--this is the line causing the error[/color]
      If oFSO.FolderExists(history_folder) Then
         user = split(history_folder,"\")
         ReDim Preserve arrUsers(UBound(arrUsers) + 1)
         arrUsers(UBound(arrUsers)) = user(2) 
         Set oStartDir = oFSO.GetFolder(history_folder)
      End If
   Next
      
   CreateSpyHtmFile
End Sub

'Sub to locate History folder(s)
Sub LocateHistoryFolder() 
    ' Example: C:\Documents and Settings\<username>\Local Settings\History
    ' HistoryPath(0) = C:
    ' HistoryPath(1) = Documents and Settings
    ' HistoryPath(2) = <username>
    ' HistoryPath(3) = Local Settings
    ' HistoryPath(4) = History 
    HistoryPath=split(oWShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache"),"\")
End Sub

I'm trying to avoid posting the entire script as it's ~250 lines. Would it help if I did?

So close yet so far... [sad]

dm4ever · May 18, 2007

This line in the LocateHistory sub
HistoryPath=split(oWShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History"),"\")

remove the split - this will make it so it is no longer an array

That variable should contain all the information you need.

You can probably skip the majority of the code in the function giving you issues since you have the path already and go straight to CreateSpyHtmFile

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

PHV · May 18, 2007

Why not simply start your scan in the following folder ?
oWShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache") & "\Content.IE5"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

Dbyte · May 18, 2007

I removed the split & cleaned up the unnecessary code - still getting a blank HTML file. There are no error messages so I have to wonder if it's finding any index.dat file(s). Here is the complete script in its current state:

Code:

Option Explicit

'Define & set variables
Dim oFSO        : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oWShell     : Set oWShell = CreateObject("WScript.Shell")
Dim objNet      : Set objNet = CreateObject("WScript.Network")
Dim Env         : Set Env = oWShell.Environment("SYSTEM")
Dim arrFiles    : arrFiles = Array()
Dim objTextLine1
Dim objTextLine2
Dim oTextStream


StartSpyScan
CleanupQuit


'Sub to cleanup memory & quit script
Sub CleanupQuit()
   Set oFSO = Nothing
   Set oWShell = Nothing
   Set objNet = Nothing
   WScript.Quit
End Sub


'Sub to start SpyScan
Sub StartSpyScan()
   Dim index_folder, history_folder, oSubFolder, oStartDir, sFileRegExPattern, user
    
   index_folder=oWShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History")
   sFileRegExPattern = "\index.dat$"
   Set oStartDir = oFSO.GetFolder(index_folder)
      
   CreateSpyHtmFile
End Sub


'Sub to create HTML file
Sub CreateSpyHtmFile()
   Dim ub, count, index_dat, user, spyTmp, sUser

   sUser = objNet.UserName
   Set oTextStream = oFSO.OpenTextFile("\\server\share\" & sUser & ".html",2,True)

   oTextStream.WriteLine "<html><title>"&objNet.UserName&"</title><body>"     
   oTextStream.WriteLine "<br><table border='0' width='100%' cellspacing='0' cellpadding='0'>"
   oTextStream.WriteLine "<tr><td nowrap><b>User:</b></td><td nowrap><b>&nbsp; Date:</b></td><td nowrap><b>&nbsp; Link:</b></td></tr>"

   count = 0
   ub = UBound(arrFiles)

   For Each index_dat In arrFiles
      count = count+1 
      user = split(index_dat,"\")
      spyTmp=oFSO.GetSpecialFolder(2)+"\spy.tmp"
      oFSO.CopyFile index_dat, spyTmp, True
          
      FindLinks "URL ", RSBinaryToString(ReadBinaryFile(spyTmp)), index_dat
   Next 
    
   oTextStream.Close
    
   If oFSO.FileExists(spyTmp) Then
      oFSO.DeleteFile spyTmp
   End If   
End Sub


'Sub find links in index.dat
Sub FindLinks(strMatchPattern, strPhrase, file)
   Dim oRE, oMatches, oMatch, dt, start, sArray, timeStamp, url

   Set oRE = New RegExp
   oRE.Pattern = strMatchPattern
   oRE.Global = True
   oRE.IgnoreCase = False
   Set oMatches = oRE.Execute(strPhrase)

   For Each oMatch In oMatches
      start = Instr(oMatch.FirstIndex + 1,strPhrase,": ")
      If start <> 0 Then
         sArray = Split(Mid(strPhrase,start+2),"@")
         url=Left(sArray(1),InStr(sArray(1),chr(0)))
         dt=AsciiToHex(Mid(strPhrase,oMatch.FirstIndex+1+16,8))
         timeStamp = cvtDate(dt(7)&dt(6)&dt(5)&dt(4),dt(3)&dt(2)&dt(1)&dt(0))
         oTextStream.WriteLine "<tr><td nowrap><font color=green size=2>"&sArray(0)&"</font></td>"+"<td nowrap><font color=red size=2>&nbsp; "&timeStamp&"</font></td>"&"<td nowrap><font size=2>&nbsp; <a href="&url&">"&url&"</a></font></td></tr>"        
      End If 
   Next
End Sub 


'Function for date conversion
Function cvtDate(hi,lo)
   On Error Resume Next
   cvtDate = #1/1/1601# + (((cdbl("&H0" & hi) * (2 ^ 32)) + cdbl("&H0" & lo))/600000000 - nBias)/1440
   cvtDate = CDate(cvtDate)
   If Err.Number <> 0 Then
      On Error GoTo 0
      cvtDate = #1/1/1601#
      Err.Clear
   End If
   On Error GoTo 0  
End Function


'Function to convert ASCII string sData into array of hex numerics
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


'Function to convert binary data to a string
Function RSBinaryToString(xBinary)
   Dim Binary
   'MultiByte data must be converted To VT_UI1 | VT_ARRAY first.
   If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
   Dim RS, LBinary
   Const adLongVarChar = 201
   Set RS = CreateObject("ADODB.Recordset")
   LBinary = LenB(Binary)

   If LBinary>0 Then
      RS.Fields.Append "mBinary", adLongVarChar, LBinary
      RS.Open
      RS.AddNew
      RS("mBinary").AppendChunk Binary 
      RS.Update
      RSBinaryToString = RS("mBinary")
   Else
      RSBinaryToString = ""
   End If
End Function


'Function to read binary Index.dat file                                              |
Function ReadBinaryFile(FileName)
   Const adTypeBinary = 1
   Dim BinaryStream : Set BinaryStream = CreateObject("ADODB.Stream")
   BinaryStream.Type = adTypeBinary
   BinaryStream.Open
   BinaryStream.LoadFromFile FileName
   ReadBinaryFile = BinaryStream.Read
   BinaryStream.Close
End Function


'Sub to build DeIndex.exe
Sub BuildDeIndexFile(sTempExe)
   Dim t, i, deindex
   If not oFSO.FileExists(sTempExe) Then
      t=split

      [COLOR=red][b]Removed this line for word wrap issue - it's LONG![/b][/color]

      Set deindex=oFSO.CreateTextFile(sTempExe,2)

      ' Check that deindex.exe was created.   
      If not oFSO.FileExists(sTempExe) Then
         CleanupQuit
      End If    

      For i=0 To UBound(t)
         deindex.Write chr(Int("&H"&t(i)))
      Next

      deindex.Close
   End If
End Sub

I have tried both the original RegRead path as well as the 1 that PHV suggested - no difference. Any further help in making this work is REALLY appreciated!

Dbyte · May 18, 2007

PHV, I didn't see your post before submitting my reply - sorry. I made the change you requested to line #31:

Code:

index_folder=oWShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache") & "\Content.IE5"

I am still getting a HTML file w/ only the headings; no data @ all appears.

PHV · May 18, 2007

arrFiles is never populated.
Seems to me that you removed too many code here:
Set oStartDir = oFSO.GetFolder(index_folder)

CreateSpyHtmFile

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

Dbyte · May 18, 2007

PHV, re-adding the code to populate arrFiles meant including the recursive search sub, which in turn required me to add more code back in. The end result is that I now get data for all users again. Here is the entire script:

Code:

Option Explicit

'Define & set variables
Dim oFSO        : Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oWShell     : Set oWShell = CreateObject("WScript.Shell")
Dim objNet      : Set objNet = CreateObject("WScript.Network")
Dim Env         : Set Env = oWShell.Environment("SYSTEM")
Dim arrFiles    : arrFiles = Array()
Dim arrUsers    : arrUsers = Array()
Dim objTextLine1
Dim objTextLine2
Dim oTextStream
Dim index
Dim HistoryPath
Dim StartIE

StartSpyScan
CleanupQuit


'Sub to search recursively for all index.dat files
Sub RecurseFilesAndFolders(oRoot, sFileEval)
    Dim oSubFolder, oFile, oRegExp

    Set oRegExp = New RegExp
    oRegExp.IgnoreCase = True

    If Not (sFileEval = "") Then
      oRegExp.Pattern = sFileEval
      For Each oFile in oRoot.Files
        If (oRegExp.Test(oFile.Name)) Then
          ReDim Preserve arrFiles(UBound(arrFiles) + 1)
          arrFiles(UBound(arrFiles)) = oFile.Path
          index=1 ' Found at least one index.dat file!
        End If
      Next
    End If

    For Each oSubFolder In oRoot.SubFolders
      RecurseFilesAndFolders oSubFolder, sFileEval
    Next
End Sub


'Sub to cleanup memory & quit script
Sub CleanupQuit()
   Set oFSO = Nothing
   Set oWShell = Nothing
   Set objNet = Nothing
   WScript.Quit
End Sub


'Sub to start SpyScan
Sub StartSpyScan()
    Dim index_folder, history_folder, oSubFolder, oStartDir, sFileRegExPattern, user
    
    LocateHistoryFolder
    index_folder=HistoryPath(0)&"\"&HistoryPath(1)
    
    If Not oFSO.FolderExists(index_folder) Then
      MsgBox "No history folder exists. Scan Aborted."
    Else  
      sFileRegExPattern = "\index.dat$"
      Set oStartDir = oFSO.GetFolder(index_folder)
      
      For Each oSubFolder In oStartDir.SubFolders
        history_folder=oSubFolder.Path&"\"&HistoryPath(3)&"\"&HistoryPath(4)&"\"&"History.IE5"
        If oFSO.FolderExists(history_folder) Then
          user = split(history_folder,"\")
          ReDim Preserve arrUsers(UBound(arrUsers) + 1)
          arrUsers(UBound(arrUsers)) = user(2) 
          Set oStartDir = oFSO.GetFolder(history_folder)
          RecurseFilesAndFolders oStartDir, sFileRegExPattern
        End If
      Next
      
      If IsEmpty(index) Then
        CloseIE
        MsgBox "No Index.dat files found. Scan Aborted."
      Else
        CreateSpyHtmFile
      End If
      
    End If
End Sub


'Sub to locate all history folders
Sub LocateHistoryFolder() 
    ' Example: C:\Documents and Settings\<username>\Local Settings\History
    ' HistoryPath(0) = C:
    ' HistoryPath(1) = Documents and Settings
    ' HistoryPath(2) = <username>
    ' HistoryPath(3) = Local Settings
    ' HistoryPath(4) = History 
    HistoryPath=split(oWShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History"),"\")
End Sub


'Sub to create HTML file
Sub CreateSpyHtmFile()
   Dim ub, count, index_dat, user, spyTmp, sUser

   sUser = objNet.UserName
   Set oTextStream = oFSO.OpenTextFile("\\server\share\" & sUser & ".html",2,True)

   oTextStream.WriteLine "<html><title>"&objNet.UserName&"</title><body>"     
   oTextStream.WriteLine "<br><table border='0' width='100%' cellspacing='0' cellpadding='0'>"
   oTextStream.WriteLine "<tr><td nowrap><b>User:</b></td><td nowrap><b>&nbsp; Date:</b></td><td nowrap><b>&nbsp; Link:</b></td></tr>"

   count = 0
   ub = UBound(arrFiles)

   For Each index_dat In arrFiles
      count = count+1 
      user = split(index_dat,"\")
      spyTmp=oFSO.GetSpecialFolder(2)+"\spy.tmp"
      oFSO.CopyFile index_dat, spyTmp, True
          
      FindLinks "URL ", RSBinaryToString(ReadBinaryFile(spyTmp)), index_dat
   Next 
    
   oTextStream.Close
    
   If oFSO.FileExists(spyTmp) Then
      oFSO.DeleteFile spyTmp
   End If   
End Sub


'Sub find links in index.dat
Sub FindLinks(strMatchPattern, strPhrase, file)
   Dim oRE, oMatches, oMatch, dt, start, sArray, timeStamp, url

   Set oRE = New RegExp
   oRE.Pattern = strMatchPattern
   oRE.Global = True
   oRE.IgnoreCase = False
   Set oMatches = oRE.Execute(strPhrase)

   For Each oMatch In oMatches
      start = Instr(oMatch.FirstIndex + 1,strPhrase,": ")
      If start <> 0 Then
         sArray = Split(Mid(strPhrase,start+2),"@")
         url=Left(sArray(1),InStr(sArray(1),chr(0)))
         dt=AsciiToHex(Mid(strPhrase,oMatch.FirstIndex+1+16,8))
         timeStamp = cvtDate(dt(7)&dt(6)&dt(5)&dt(4),dt(3)&dt(2)&dt(1)&dt(0))
         oTextStream.WriteLine "<tr><td nowrap><font color=green size=2>"&sArray(0)&"</font></td>"+"<td nowrap><font color=red size=2>&nbsp; "&timeStamp&"</font></td>"&"<td nowrap><font size=2>&nbsp; <a href="&url&">"&url&"</a></font></td></tr>"        
      End If 
   Next
End Sub 


'Function for date conversion
Function cvtDate(hi,lo)
   On Error Resume Next
   cvtDate = #1/1/1601# + (((cdbl("&H0" & hi) * (2 ^ 32)) + cdbl("&H0" & lo))/600000000 - nBias)/1440
   cvtDate = CDate(cvtDate)
   If Err.Number <> 0 Then
      On Error GoTo 0
      cvtDate = #1/1/1601#
      Err.Clear
   End If
   On Error GoTo 0  
End Function


'Function to convert ASCII string sData into array of hex numerics
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


'Function to convert binary data to a string
Function RSBinaryToString(xBinary)
   Dim Binary
   'MultiByte data must be converted To VT_UI1 | VT_ARRAY first.
   If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
   Dim RS, LBinary
   Const adLongVarChar = 201
   Set RS = CreateObject("ADODB.Recordset")
   LBinary = LenB(Binary)

   If LBinary>0 Then
      RS.Fields.Append "mBinary", adLongVarChar, LBinary
      RS.Open
      RS.AddNew
      RS("mBinary").AppendChunk Binary 
      RS.Update
      RSBinaryToString = RS("mBinary")
   Else
      RSBinaryToString = ""
   End If
End Function


'Function to read binary Index.dat file                                              |
Function ReadBinaryFile(FileName)
   Const adTypeBinary = 1
   Dim BinaryStream : Set BinaryStream = CreateObject("ADODB.Stream")
   BinaryStream.Type = adTypeBinary
   BinaryStream.Open
   BinaryStream.LoadFromFile FileName
   ReadBinaryFile = BinaryStream.Read
   BinaryStream.Close
End Function


'Sub to build DeIndex.exe
Sub BuildDeIndexFile(sTempExe)
   Dim t, i, deindex
   If not oFSO.FileExists(sTempExe) Then
      t=split("4D,5A,90,00,03,00,00,00,04,00,00,00,FF,FF,00,00,B8,00,00,
00,00,00,00,00,40,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,B0,00,00,00,0E,1F,BA,0E,00,B4,09,CD,21,B8,01,4C,CD,21,
54,68,69,73,20,70,72,6F,67,72,61,6D,20,63,61,6E,6E,6F,74,20
,62,65,20,72,75,6E,20,69,6E,20,44,4F,53,20,6D,6F,64,65,2E,0
D,0D,0A,24,00,00,00,00,00,00,00,D5,FA,31,DE,91,9B,5F,8D,91,
9B,5F,8D,91,9B,5F,8D,1F,84,4C,8D,97,9B,5F,8D,6D,BB,4D,8D,93
,9B,5F,8D,52,69,63,68,91,9B,5F,8D,00,00,00,00,00,00,00,00,5
0,45,00,00,4C,01,03,00,70,78,71,40,00,00,00,00,00,00,00,00,
E0,00,0F,01,0B,01,05,0C,00,02,00,00,00,04,00,00,00,00,00,00
,00,10,00,00,00,10,00,00,00,20,00,00,00,00,40,00,00,10,00,0
0,00,02,00,00,04,00,00,00,00,00,00,00,04,00,00,00,00,00,00,
00,00,40,00,00,00,04,00,00,00,00,00,00,02,00,00,00,00,00,10
,00,00,10,00,00,00,00,10,00,00,10,00,00,00,00,00,00,10,00,0
0,00,00,00,00,00,00,00,00,00,10,20,00,00,28,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,20,00,00,10,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,2E,74,65,78,74,00,00,00,
48,01,00,00,00,10,00,00,00,02,00,00,00,04,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,20,00,00,60,2E,72,64,61,74,61,00,0
0,84,00,00,00,00,20,00,00,00,02,00,00,00,06,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,40,00,00,40,2E,64,61,74,61,00,00
,00,04,01,00,00,00,30,00,00,00,02,00,00,00,08,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,40,00,00,C0,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,68,00,30,40,00,6A,01,E8,24,00,00,00,6A,04,6A,00,68,00
,30,40,00,E8,0E,00,00,00,6A,00,E8,01,00,00,00,CC,FF,25,08,2
0,40,00,FF,25,00,20,40,00,CC,CC,55,8B,EC,81,C4,7C,FE,FF,FF,
56,57,E8,02,01,00,00,89,45,FC,33,C9,8B,75,FC,AC,3C,00,74,07
,3C,22,75,F7,41,EB,F4,51,D1,E9,D1,E1,58,3B,C1,74,0B,5F,5E,B
8,03,00,00,00,C9,C2,08,00,8B,75,FC,8D,BD,3C,FF,FF,FF,AC,3C,
00,74,09,3C,09,75,02,B0,20,AA,EB,F2,AA,8D,85,3C,FF,FF,FF,8B
,F0,8B,F8,AC,3C,00,75,02,EB,1B,3C,22,75,03,AA,EB,03,AA,EB,E
F,AC,3C,20,75,02,B0,FE,3C,22,75,03,AA,EB,E1,AA,EB,EF,AA,8D,
85,3C,FF,FF,FF,8B,F0,8D,BD,7C,FE,FF,FF,B9,00,00,00,00,AC,3C
,20,74,FB,3B,4D,08,74,15,AC,3C,00,74,1D,3C,20,75,0A,AC,3C,2
0,74,FB,41,3C,00,74,0F,EB,E6,AA,AC,3C,20,74,07,3C,00,74,03,
AA,EB,F4,B0,00,AA,3B,4D,08,73,11,8B,7D,0C,B0,00,AA,B8,02,00
,00,00,5F,5E,C9,C2,08,00,8D,85,7C,FE,FF,FF,8B,F0,8B,7D,0C,A
C,3C,00,74,0D,3C,22,74,F7,3C,FE,75,02,B0,20,AA,EB,EE,AA,8B,
75,0C,AC,3C,00,75,0B,5F,5E,B8,04,00,00,00,C9,C2,08,00,B8,01
,00,00,00,5F,5E,C9,C2,08,00,FF,25,04,20,40,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,56,20,00,00,72,20,00,00,48,20,00,00,00,00,00,00,38,
20,00,00,00,00,00,00,00,00,00,00,64,20,00,00,00,20,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,5
6,20,00,00,72,20,00,00,48,20,00,00,00,00,00,00,80,00,45,78,
69,74,50,72,6F,63,65,73,73,00,C1,01,4D,6F,76,65,46,69,6C,65
,45,78,41,00,6B,65,72,6E,65,6C,33,32,2E,64,6C,6C,00,00,C8,0
0,47,65,74,43,6F,6D,6D,61,6E,64,4C,69,6E,65,41,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,
00,00,00,00",",")
      Set deindex=oFSO.CreateTextFile(sTempExe,2)

      ' Check that deindex.exe was created.   
      If not oFSO.FileExists(sTempExe) Then
         CleanupQuit
      End If    

      For i=0 To UBound(t)
         deindex.Write chr(Int("&H"&t(i)))
      Next

      deindex.Close
   End If
End Sub

Can anyone tell me which specific lines need to be altered/deleted & how in order to get this data for the current user only?

Thanks in advance for your help!

PHV · May 18, 2007

what about this ?
Sub StartSpyScan()
Dim index_folder, history_folder, oSubFolder, oStartDir, sFileRegExPattern, user

LocateHistoryFolder
[!] index_folder=Join(HistoryPath,"\")[/!]

If Not oFSO.FolderExists(index_folder) Then
MsgBox "No history folder exists. Scan Aborted."
Else
sFileRegExPattern = "\index.dat$"
Set oStartDir = oFSO.GetFolder(index_folder)
[!] RecurseFilesAndFolders oStartDir, sFileRegExPattern
[/!]
If IsEmpty(index) Then
CloseIE
MsgBox "No Index.dat files found. Scan Aborted."
Else
CreateSpyHtmFile
End If

End If
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

Dbyte · May 21, 2007

PHV, that did it! Thanks so much for your assistance to both PHV & dm4ever. Stars for both of you.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Get internet address (URL) of HTML files in TIF folder 2

Dbyte

Technical User

markdmac

MIS

dm4ever

Technical User

Dbyte

Technical User

Dbyte

Technical User

dm4ever

Technical User

PHV

MIS

Dbyte

Technical User

dm4ever

Technical User

PHV

MIS

Dbyte

Technical User

Dbyte

Technical User

PHV

MIS

Dbyte

Technical User

PHV

MIS

Dbyte

Technical User

Similar threads

Part and Inventory Search

Sponsor