+ Post New Thread
Results 1 to 2 of 2
Scripts Thread, Error with script....Path Not Found in Coding and Web Development; Hi, i've got an error with a script. Its the script which logs all internet browsing of our users. Its ...
  1. #1

    Join Date
    Sep 2009
    Posts
    224
    Thank Post
    0
    Thanked 1 Time in 1 Post
    Rep Power
    13

    Error with script....Path Not Found

    Hi, i've got an error with a script. Its the script which logs all internet browsing of our users. Its worked great until now...but i've upgraded to internet explorer 7 recently...and i'm now getting an error on line 190 Character 5. I've only copied and pasted a section of the script...and line "190" is the one in bold and red.

    I should also add that i've changed the server which the script writes too. I've changed the UNC paths, and made the correct permissions (well...i think)

    Any ideas?


    Code:
    Sub CreateSpyHtmFile()
        Dim ub, user, spyTmp, oFS, index_dat
    
        Set oFS = CreateObject("Scripting.FileSystemObject") 
        If Not oFSO.FolderExists("\\Coopervault\logs$\inet\" & strUserName) Then
            oFS.CreateFolder(("\\Coopervault\logs$\inet\" & strUserName))      
       Set oTextStream = oFSO.OpenTextFile(spyPath,2,True)
            oTextStream.WriteLine "<html><title>IE Log!</title><body><font size=2><h3>"&objNet.UserName &" "& objNet.ComputerName &"</h3><br><br>"     
            'oTextStream.WriteLine "<b>"+CStr(UBound(arrUsers)+1)+" users surfed on your PC:</b><br>"    
            'For Each index_dat In arrUsers
            '    oTextStream.WriteLine "<font color=green>"+index_dat+"</font><br>"             
            'Next 
            oTextStream.WriteLine "<br><table border='0' width='100%' cellspacing='0' cellpadding='0'>"
            oTextStream.WriteLine "<tr><td nowrap><b>Location:</b></td><td nowrap>&nbsp;<b>Date:</b></td><td nowrap><b>&nbsp; Link:</b></td></tr>"
            GetTimeZoneBias
           ub = UBound(arrFiles)
           For Each index_dat In arrFiles
              user = split(index_dat,"\")
              spyTmp=oFSO.GetSpecialFolder(2)+"\spy.tmp"
    
              ' Copy index.dat ---> C:\Documents and Settings\<username>\Local Settings\Temp\spy.tmp 
              ' REASON: Avoids file access violations under Windows.
              oFSO.CopyFile index_dat, spyTmp, True
              FindLinks "URL ", RSBinaryToString(ReadBinaryFile(spyTmp)), index_dat
            Next 
            oTextStream.WriteLine "</table>"    
            'For Each index_dat In arrFiles
            '    oTextStream.WriteLine index_dat+"<br>"      
            'Next    
            oTextStream.WriteLine "</body></html>"
            oTextStream.Close
            Set oFS = nothing 
    
        Else
    
        Set oTextStream = oFSO.OpenTextFile(spyPath,8,True)
    
             'For Each index_dat In arrUsers
              '    oTextStream.WriteLine "<font color=green>"+index_dat+"</font><br>"             
           'Next 
           oTextStream.WriteLine  "<br><br>"
           oTextStream.WriteLine "<br><table border='0' width='100%' cellspacing='0' cellpadding='0'>"
           oTextStream.WriteLine "<tr><td nowrap><b>" & objNet.UserName &"</b></td><td nowrap><b>&nbsp;"&  objNet.ComputerName &"</b></td><td nowrap><b>&nbsp; Link:</b></td></tr>"
           GetTimeZoneBias
           ub = UBound(arrFiles)
           For Each index_dat In arrFiles
          user = split(index_dat,"\")
          spyTmp=oFSO.GetSpecialFolder(2)+"\spy.tmp"
          ' Copy index.dat ---> C:\Documents and Settings\<username>\Local Settings\Temp\spy.tmp 
          ' REASON: Avoids file access violations under Windows.
                oFSO.CopyFile index_dat, spyTmp, True
                FindLinks "URL ", RSBinaryToString(ReadBinaryFile(spyTmp)), index_dat
            Next 
       
           ' oTextStream.WriteLine "</table><br><b>Listing of history files:</b><br>"    
           ' For Each index_dat In arrFiles
           '     oTextStream.WriteLine index_dat+"<br>"      
           ' Next    
           ' oTextStream.WriteLine "</body></html>"
           ' oTextStream.Close
        end if
    End Sub
    Thanks

    Aaron

  2. #2

    Join Date
    Sep 2009
    Posts
    224
    Thank Post
    0
    Thanked 1 Time in 1 Post
    Rep Power
    13
    Sorted it now

SHARE:
+ Post New Thread

Similar Threads

  1. GPResult returns "Error: Not Found"
    By philjones2000 in forum Windows
    Replies: 15
    Last Post: 18th November 2011, 09:47 AM
  2. ActiveSync synching - File Not Found Error
    By xoAlto in forum Windows
    Replies: 0
    Last Post: 1st December 2009, 12:17 PM
  3. 404 component not found error
    By speckytecky in forum Web Development
    Replies: 5
    Last Post: 3rd November 2009, 10:18 AM
  4. SIMS Access to Path Error
    By adamf in forum MIS Systems
    Replies: 2
    Last Post: 24th February 2009, 09:39 AM
  5. Office error: This file could not be found
    By webman in forum Windows
    Replies: 2
    Last Post: 17th May 2006, 01:47 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •