+ Post New Thread
Page 2 of 3 FirstFirst 123 LastLast
Results 16 to 30 of 41
How do you do....it? Thread, Logging Internet Usage in Technical; Work in Dorset, use SWGFL and then you get a free RM SMARTCACHE! A fantastic bit of kit! J...
  1. #16

    Join Date
    May 2007
    Location
    Margate
    Posts
    17
    Thank Post
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    0

    Re: Logging Internet Usage

    Work in Dorset, use SWGFL and then you get a free RM SMARTCACHE!

    A fantastic bit of kit!

    J

  2. #17
    ricki's Avatar
    Join Date
    Jul 2005
    Location
    uk
    Posts
    1,475
    Thank Post
    20
    Thanked 164 Times in 157 Posts
    Rep Power
    52

    Re: Logging Internet Usage

    HI I know this will sound strange but I cannot get the internet spy to work.

    I have downloaded the vbs script and copied it into the netlogon.

    I have creates a logs$ share on a server with space and created a folder in there called inet. I have set share and ntfs permissions to full control for everyone.

    I have changed the vbs script to look at the share in 3 places and it looks like this

    Code:
    ' C:\Documents and Settings\Administrator\Local Settings\History\History.IE5\index.dat - Starting offset: 0000:5000
    ' +----------------------------------------------------------------------------+
    ' | Ensure that all variable names are defined! |
    ' +----------------------------------------------------------------------------+
    Option Explicit


    ' +----------------------------------------------------------------------------+
    ' | Setup constants |
    ' +----------------------------------------------------------------------------+
    Const conBarSpeed=80
    Const conForcedTimeOut=3600000 ' 1 hour


    ' +----------------------------------------------------------------------------+
    ' | Setup Objects and misc variables |
    ' +----------------------------------------------------------------------------+
    Dim spyPath
    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 HistoryPath : HistoryPath = Array()
    Dim objIE
    Dim objProgressBar
    Dim objTextLine1
    Dim objTextLine2
    Dim objQuitFlag
    Dim oTextStream
    Dim index
    Dim nBias
    Dim strUserName

    ' +----------------------------------------------------------------------------+
    ' | Whose been a naughty surfer? Let's find out! |
    ' +----------------------------------------------------------------------------+
    'Here is where we extract the UserName
    strUserName = objNet.UserName
    spyPath = "\\sophos-server\logs$\inet\" &strUsername&"\spy.htm"
    StartSpyScan
    'DeleteIndexFiles()
    myDeleteIndexFiles


    ' +----------------------------------------------------------------------------+
    ' | Outta here ... |
    ' +----------------------------------------------------------------------------+
    CleanupQuit


    ' +----------------------------------------------------------------------------+
    ' | Cleanup and Quit |
    ' +----------------------------------------------------------------------------+
    Sub CleanupQuit()
    Set oFSO = Nothing
    Set oWShell = Nothing
    Set objNet = Nothing
    WScript.Quit
    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Start Spy Scan |
    ' +----------------------------------------------------------------------------+
    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

    'StartIE "IE Spy"
    'SetLine1 "Locating history files:"

    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,"\")
    'SetLine2 user(2)
    'ReDim Preserve arrUsers(UBound(arrUsers) + 1)
    'arrUsers(UBound(arrUsers)) = user(2)
    if user(2) = strUserName then
    Set oStartDir = oFSO.GetFolder(history_folder)
    RecurseFilesAndFolders oStartDir, sFileRegExPattern
    end if
    End If
    Next

    If IsEmpty(index) Then
    'CloseIE
    'MsgBox "No Index.dat files found. Scan Aborted."
    Else
    CreateSpyHtmFile
    'CloseIE
    'RunSpyHtmFile
    'DeleteIndexFiles
    End If

    End If
    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Locate History Folder |
    ' +----------------------------------------------------------------------------+
    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\M icrosoft\Windows\CurrentVersion\Explorer\Shell

    Folders\History"),"\")
    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Find ALL History 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


    ' +----------------------------------------------------------------------------+
    ' | Create Spy.htm file |
    ' +----------------------------------------------------------------------------+
    Sub CreateSpyHtmFile()
    Dim ub, user, spyTmp, oFS, index_dat

    Set oFS = CreateObject("Scripting.FileSystemObject")
    If Not oFSO.FolderExists("\\sophos-server\logs$\inet\" & strUserName) Then
    oFS.CreateFolder(("\\sophos-server\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>

    "
    'oTextStream.WriteLine ""+CStr(UBound(arrUsers)+1)+" users surfed on your PC:
    "
    'For Each index_dat In arrUsers
    ' oTextStream.WriteLine "<font color=green>"+index_dat+"</font>
    "
    'Next
    oTextStream.WriteLine "
    <table border='0' width='100%' cellspacing='0' cellpadding='0'>"
    oTextStream.WriteLine "<tr><td nowrap>Location:</td><td nowrap>Date:</td><td

    nowrap> Link:</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+"
    "
    '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>
    "
    'Next
    oTextStream.WriteLine "

    "
    oTextStream.WriteLine "
    <table border='0' width='100%' cellspacing='0' cellpadding='0'>"
    oTextStream.WriteLine "<tr><td nowrap>" & objNet.UserName &"</td><td nowrap>"&

    objNet.ComputerName &"
    </td><td nowrap> Link:</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>
    Listing of history files:
    "
    ' For Each index_dat In arrFiles
    ' oTextStream.WriteLine index_dat+"
    "
    ' Next
    ' oTextStream.WriteLine "</body></html>"
    ' oTextStream.Close
    end if
    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Get Time Zone Bias. |
    ' +----------------------------------------------------------------------------+
    Sub GetTimeZoneBias()
    Dim nBiasKey, k

    nBiasKey = oWShell.RegRead("HKLM\System\CurrentControlSet\Con trol\TimeZoneInformation\ActiveTimeBias")
    If UCase(TypeName(nBiasKey)) = "LONG" Then
    nBias = nBiasKey
    ElseIf UCase(TypeName(nBiasKey)) = "VARIANT()" Then
    nBias = 0
    For k = 0 To UBound(nBiasKey)
    nBias = nBias + (nBiasKey(k) * 256^k)
    Next
    End If
    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Find Links within 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 "<nobr>" & sArray(0) & " - " & timeStamp & " - " & ""&url&" - " &

    file & " - " & CStr(oMatch.FirstIndex + 1) & "</nobr>
    "
    'Visit User + Date + Visited URL
    if split(timestamp," ")(0) = FormatDateTime(date) then
    oTextStream.WriteLine "<tr><td nowrap><font color=green size=2>"&objNet.ComputerName&"</font></td>"+"<td

    nowrap><font color=red size=2>"&timeStamp&"</font></td>"&"<td nowrap><font size=2> "&url&"</font></td></tr>"
    end if
    End If
    Next
    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Convert a 64-bit value to a date, adjusted for local time zone bias. |
    ' +----------------------------------------------------------------------------+
    Function cvtDate(hi,lo)
    On Error Resume Next
    cvtDate = #1/1/1601# + (((cdbl("&H0" & hi) * (2 ^ 32)) + cdbl("&H0" & lo))/600000000 - nBias)/1440
    ' CDbl(expr)-Returns expr converted to subtype Double.
    ' If expr cannot be converted to subtype Double, a type mismatch or overflow runtime error will occur.
    cvtDate = CDate(cvtDate)
    If Err.Number <> 0 Then
    'WScript.Echo "Oops! An Error has occured - Error number " & Err.Number & " of the type '" & Err.description &

    "'."
    On Error GoTo 0
    cvtDate = #1/1/1601#
    Err.Clear
    End If
    On Error GoTo 0
    End Function


    ' +----------------------------------------------------------------------------+
    ' | Turns 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


    ' +----------------------------------------------------------------------------+
    ' | Converts binary data to a string (BSTR) using ADO recordset. |
    ' +----------------------------------------------------------------------------+
    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


    ' +----------------------------------------------------------------------------+
    ' | 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


    ' +----------------------------------------------------------------------------+
    ' | Run Spy.htm file |
    ' +----------------------------------------------------------------------------+
    Sub RunSpyHtmFile()
    If not oFSO.FileExists(spyPath) Then
    MsgBox "For some odd reason, "+spyPath+" does not exist:"+vbCRLF+vbCRLF+spyPath+vbCRLF+vbCRLF+"Unfor tunately,

    no surfing history can be tracked. (cyber_flash@hotmail.com)", VBOKonly, "Exiting (code=2)"
    CleanupQuit
    Else
    oWShell.Run chr(34)+spyPath+chr(34)
    End If
    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Delete Index.dat files |
    ' +----------------------------------------------------------------------------+
    Sub DeleteIndexFiles()
    Dim sTempExe, elem

    ' If MsgBox ("Would you like to delete specific Index.dat files?", 65, "Notice")=1 Then

    ' Example: C:\Documents and Settings\<username>\Local Settings\Temp\deindex.exe
    sTempExe = oFSO.GetSpecialFolder(2)+"\deindex.exe"

    BuildDeIndexFile(sTempExe)

    For Each elem In arrFiles
    ' If MsgBox ("Delete file upon PC restart?"&vbcrlf&elem, 65, "Delete?")=1 Then
    oWShell.Run sTempExe+" "+chr(34)+elem+chr(34)
    ' End If
    Next

    ' MsgBox "Any pending file deletions are stored under this registry

    key:"&vbcrlf&vbcrlf&"HKEY_LOCAL_MACHINE\SYSTEM\Cur rentControlSet\Control\Session

    Manager\PendingFileRenameOperations"&vbcrlf&vbcrlf &"If you want to undo the pending deletions, goto the above value

    and simply delete it! (use: regedit.exe)",0,"Notice"

    ' If MsgBox ("Would you like to RESTART your PC now?", 33, "Notice")=1 Then
    ' oWShell.Run "cmd.exe /c shutdown.exe "+chr(34)+"-r"+chr(34),0,True
    ' End If

    ' End If
    End Sub

    Sub myDeleteIndexFiles
    Dim elem, oTextStream
    For Each elem In arrFiles
    On Error Resume Next
    Set oTextStream = oFSO.OpenTextFile(elem,2)
    Next
    End Sub

    ' +----------------------------------------------------------------------------+
    ' | Build DeIndex.exe (see source code below) |
    ' +----------------------------------------------------------------------------+
    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,0 0,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,B0,00,00,00,0E,1F,BA,0E,00, B4,09,CD,21,B8,0

    1,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,0D,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,4 C,8D,97,9B,5F,8D

    ,6D,BB,4D,8D,93,9B,5F,8D,52,69,63,68,91,9B,5F,8D,0 0,00,00,00,00,00,00,00,50,45,00,00,4C,01,03,00,70, 78,71,40,00,00,0

    0,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,00,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,0 0,00,00,00,00,00

    ,02,00,00,00,00,00,10,00,00,10,00,00,00,00,10,00,0 0,10,00,00,00,00,00,00,10,00,00,00,00,00,00,00,00, 00,00,00,10,20,0

    0,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,00,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,20,00,00,10,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,0

    0,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,00,84,00,00,00,00,20 ,00,00,00,02,00,00,00,06,00,00,00,00,00,00,00,00,0 0,00,00,00,00,00

    ,40,00,00,40,2E,64,61,74,61,00,00,00,04,01,00,00,0 0,30,00,00,00,02,00,00,00,08,00,00,00,00,00,00,00, 00,00,00,00,00,0

    0,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,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,0 0,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,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,0 0,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,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,0 0,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,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,0 0,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,20,40,00,FF,25,00,20,40,00,CC,CC,55,8B,E C,81,C4,7C,FE,FF

    ,FF,56,57,E8,02,01,00,00,89,45,FC,33,C9,8B,75,FC,A C,3C,00,74,07,3C,22,75,F7,41,EB,F4,51,D1,E9,D1,E1, 58,3B,C1,74,0B,5

    F,5E,B8,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,EF,AC,3C,20,75,02,B0,FE,3C,22,75,0 3,AA,EB,E1,AA,EB

    ,EF,AA,8D,85,3C,FF,FF,FF,8B,F0,8D,BD,7C,FE,FF,FF,B 9,00,00,00,00,AC,3C,20,74,FB,3B,4D,08,74,15,AC,3C, 00,74,1D,3C,20,7

    5,0A,AC,3C,20,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,AC,3C,00,74,0D,3C,22,74,F7,3 C,FE,75,02,B0,20

    ,AA,EB,EE,AA,8B,75,0C,AC,3C,00,75,0B,5F,5E,B8,04,0 0,00,00,C9,C2,08,00,B8,01,00,00,00,5F,5E,C9,C2,08, 00,FF,25,04,20,4

    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,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,0 0,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,00,00,00,00,00,00,00,00,00,00,00,56,20,0 0,00,72,20,00,00

    ,48,20,00,00,00,00,00,00,38,20,00,00,00,00,00,00,0 0,00,00,00,64,20,00,00,00,20,00,00,00,00,00,00,00, 00,00,00,00,00,0

    0,00,00,00,00,00,00,00,00,00,56,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,00,47,65,7 4,43,6F,6D,6D,61

    ,6E,64,4C,69,6E,65,41,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,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,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,0 0,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,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,0 0,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,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,0 0,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,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,0 0,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,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,0 0,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,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,0 0,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,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,0 0,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",",")

    Set deindex=oFSO.CreateTextFile(sTempExe,2)

    ' Check that deindex.exe was created.
    If not oFSO.FileExists(sTempExe) Then
    MsgBox "For some odd reason, DEINDEX.EXE does not

    exist:"+vbCRLF+vbCRLF+sTempExe+vbCRLF+vbCRLF+"Unfo rtunately, no surfing history can be deleted.

    (cyber_flash@hotmail.com)", VBOKonly, "Exiting (code=3)"
    CleanupQuit
    End If

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

    deindex.Close
    End If

    End Sub


    ' +----------------------------------------------------------------------------+
    ' | Source code for DeIndex.exe |
    ' +----------------------------------------------------------------------------+
    ' ;Title: Delete Index.dat files!
    ' ;Author: Vengy! (-_-)
    ' ;Date: 2004 and beyond ...
    ' ;Tested: Win2K/XP ...
    ' ;Compiled: MASM32
    ' ;Comments: cyber_flash @ hotmail.com
    '
    ' ;This program takes the index.dat file path as a commandline argument,
    ' ;then invokes the MoveFileEx API which deletes the specified file upon RESTART.
    '
    ' ;The Pending file renames are stored under this registry key:
    ' ;HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contr ol\Session Manager\PendingFileRenameOperations
    '
    ' ;Please visit the link below for more details. Thanks!
    ' ;http://msdn.microsoft.com/library/en...movefileex.asp
    '
    '
    ' .486p
    ' .MODEL flat, stdcall
    ' option casemap:none
    '
    ' include \masm32\include\windows.inc
    ' include \masm32\include\kernel32.inc
    ' include \masm32\include\masm32.inc
    ' includelib \masm32\lib\kernel32.lib
    ' includelib \masm32\lib\masm32.lib
    '
    ' .DATA
    ' szSrcFile db MAX_PATH dup(0)
    '
    ' .CODE
    ' Main:
    ' invoke GetCL, 1, addr szSrcFile
    ' invoke MoveFileEx, addr szSrcFile, NULL, MOVEFILE_DELAY_UNTIL_REBOOT
    ' invoke ExitProcess, 0
    ' End Main
    ' +----------------------------------------------------------------------------+
    ' | End of DeIndex.exe source code |
    ' +----------------------------------------------------------------------------+

    When I run the script I am getting errors to say windows script host error

    script with address
    Line : 6
    Char 1
    Error Expected statement
    Code: 800a0400
    Source microsoft vbscript error

    Has anyone any ideas with I have done wrong,

    Thanks for all your help.

    Richard

  3. #18

    Join Date
    Apr 2007
    Posts
    41
    Thank Post
    0
    Thanked 1 Time in 1 Post
    Rep Power
    0

    Re: Logging Internet Usage

    I want to say thank you for this awesome piece of code, Ric.
    I just set it up on our server, changed the 3 variables for the share's location, and put it in the GPO and WOW, it's exactly what the head of technology here wanted... and it's FREE.

    Excellent work, and thanks again!

  4. #19
    alonebfg's Avatar
    Join Date
    Aug 2006
    Location
    south west some of the time
    Posts
    834
    Thank Post
    12
    Thanked 34 Times in 21 Posts
    Blog Entries
    5
    Rep Power
    24

    Re: Logging Internet Usage

    I know this is a silly question but you dont have the code: in the vbs script do you ?? only somthing i did once when copying a script but took me forever to sus it out

  5. #20
    ricki's Avatar
    Join Date
    Jul 2005
    Location
    uk
    Posts
    1,475
    Thank Post
    20
    Thanked 164 Times in 157 Posts
    Rep Power
    52

    Re: Logging Internet Usage

    Quote Originally Posted by alonebfg
    I know this is a silly question but you dont have the code: in the vbs script do you ?? only somthing i did once when copying a script but took me forever to sus it out
    I am not sure what you mean. I started the script with Code:

    Please can you tell me what silly mistake I have made as it does not work for me.

    Thanks for all your help.

    Richard

  6. #21
    alonebfg's Avatar
    Join Date
    Aug 2006
    Location
    south west some of the time
    Posts
    834
    Thank Post
    12
    Thanked 34 Times in 21 Posts
    Blog Entries
    5
    Rep Power
    24

    Re: Logging Internet Usage

    i am sure the code: is the fourm way of showing it and not part of the script take it out and try again and it might work i know i havent put code: at the start. I am sure someone will tell me if i am wrong.

  7. #22

    FN-GM's Avatar
    Join Date
    Jun 2007
    Location
    UK
    Posts
    16,212
    Thank Post
    893
    Thanked 1,773 Times in 1,529 Posts
    Blog Entries
    12
    Rep Power
    461
    Is there still a link for this script or is it me?

  8. #23
    Ryan's Avatar
    Join Date
    Jan 2008
    Location
    Scotland
    Posts
    537
    Thank Post
    12
    Thanked 16 Times in 15 Posts
    Blog Entries
    1
    Rep Power
    29
    Link appears to be broken (old forums->new forums issue?)

    I'd be interested in this little logging script too.

  9. #24
    chalkwellstu's Avatar
    Join Date
    Sep 2007
    Location
    Leigh on Sea
    Posts
    148
    Thank Post
    5
    Thanked 0 Times in 0 Posts
    Rep Power
    0
    Quote Originally Posted by Ryan View Post
    Link appears to be broken (old forums->new forums issue?)

    I'd be interested in this little logging script too.
    Me too, if you wouldn't mind

  10. #25

    SpuffMonkey's Avatar
    Join Date
    Jul 2005
    Posts
    2,257
    Thank Post
    55
    Thanked 283 Times in 189 Posts
    Rep Power
    135
    Hopefully this is what you're after - you'll have to bodge it to fit your server names...
    Attached Files Attached Files

  11. 2 Thanks to SpuffMonkey:

    chalkwellstu (24th January 2008), greenk (4th February 2011)

  12. #26
    chalkwellstu's Avatar
    Join Date
    Sep 2007
    Location
    Leigh on Sea
    Posts
    148
    Thank Post
    5
    Thanked 0 Times in 0 Posts
    Rep Power
    0
    Quote Originally Posted by SpuffMonkey View Post
    Hopefully this is what you're after - you'll have to bodge it to fit your server names...
    Cool thanks SpuffMonkey

  13. #27

    Join Date
    Mar 2007
    Posts
    1,831
    Thank Post
    89
    Thanked 311 Times in 239 Posts
    Rep Power
    89
    zip is corrupt for me

  14. #28
    sharkster's Avatar
    Join Date
    Nov 2007
    Location
    Middlesbrough
    Posts
    149
    Thank Post
    23
    Thanked 26 Times in 21 Posts
    Rep Power
    19
    Quote Originally Posted by strawberry View Post
    zip is corrupt for me
    same here

  15. #29

    Join Date
    Feb 2006
    Location
    Derbyshire
    Posts
    1,381
    Thank Post
    181
    Thanked 211 Times in 171 Posts
    Rep Power
    65
    Downloads fine here - the zip's definitely not corrupt.

  16. #30

    Join Date
    Oct 2009
    Posts
    10
    Thank Post
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    0
    Sorry to resurect an old topic but I'm having some permission errors when the script run on certain computer and certain accounts. I was wondering if anyone else had this happen and if they had a fix for it. Or if anyone is using another similar solution.

SHARE:
+ Post New Thread
Page 2 of 3 FirstFirst 123 LastLast

Similar Threads

  1. Logging onto the network after logging on locally
    By frankybaloney in forum Windows
    Replies: 9
    Last Post: 10th October 2008, 12:17 PM
  2. Can you update Internet mobile to Internet Explorer?
    By thegrassisgreener in forum Windows
    Replies: 1
    Last Post: 16th July 2007, 01:48 PM
  3. Equipment borrowing - logging usage
    By SteveB_NI in forum General Chat
    Replies: 7
    Last Post: 17th April 2007, 08:59 AM
  4. Internet usage reporting software
    By frontal in forum Recommended Suppliers
    Replies: 6
    Last Post: 29th June 2006, 07:51 PM
  5. Anyone know of any good software usage logging software?
    By ninjabeaver in forum Educational Software
    Replies: 15
    Last Post: 28th November 2005, 01:26 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
  •