home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2004 August / PCWELT_8_2004.ISO / pcwsoft / pcwNetFiles.z.exe / pcwNetFiles.VBS
Encoding:
Text File  |  2004-05-25  |  1.1 KB  |  35 lines
  1. SET MyShell = Wscript.CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. set Env=MyShell.Environment("PROCESS")
  4. temp=Env("TEMP") & "\NetFiles.tmp"
  5. set liste=MyFiles.Createtextfile("c:\pcwNetfiles.TXT")
  6.  
  7. intervall=10 'Sekunden
  8. dauer=inputbox("Wie lange soll das Protokoll laufen? (in Stunden)","Protokoll der Zetzzugriffe")
  9. dauer=dauer * 3600 / intervall
  10. intervall=intervall*1000 'Millisekunden
  11.  
  12. FileID=0
  13.  
  14. for n=1 to dauer
  15.     wscript.sleep(intervall)
  16.     myshell.run "cmd.exe /c net.exe Files > %temp%\netfiles.tmp",0,TRUE
  17.     set tempfile=MyFiles.Opentextfile(temp)
  18.     do
  19.         zeile=tempfile.readline
  20.         if instr(zeile, ":\") then
  21.             if trim(left(zeile,7)) > FileID then
  22.                 liste.writeline "------------------------------------------------------------------------------------------------"
  23.                 liste.writeline date() & ", " & time() & "  " & zeile
  24.                 FileID = trim(left(zeile,7)) 
  25.             end if
  26.         end if
  27.     loop until tempfile.AtEndOfStream
  28. next
  29.  
  30. set tempfile=MyFiles.GetFile(temp)
  31. tempfile.delete
  32. myshell.run "notepad.exe c:\pcwNetFiles.txt"
  33.  
  34.  
  35.