http://dev.trisul.org/unsniffwiki/docs/ 2026-04-28T16:24:04-04:00 http://dev.trisul.org/unsniffwiki/docs/ http://dev.trisul.org/unsniffwiki/docs/lib/tpl/default/images/favicon.ico text/html 2012-05-10T09:01:50-04:00 http://dev.trisul.org/unsniffwiki/docs/doku.php?id=unsniff:samples:tcount:ruby&rev=1336654910&do=diff require 'win32ole' USAGE = "tcount <capture-filename>" if ARGV.length != 1 puts USAGE exit 1 end InputFile = ARGV[0] UnsniffDB = WIN32OLE.new("Unsniff.Database") UnsniffDB.Open(InputFile) Count = UnsniffDB.PacketCount UnsniffDB.Close endl="\n" $stdout << "Filename is " << InputFile << endl $stdout << "Number of Packets = " << Count << endl text/html 2014-09-11T23:23:06-04:00 http://dev.trisul.org/unsniffwiki/docs/doku.php?id=unsniff:samples:tcount:vbscript&rev=1410492186&do=diff ' ----------------- ' Declare variables ' ----------------- Dim ArgFile Dim WshShell ' ----------------------- ' Check usage & arguments ' ----------------------- if WScript.Arguments.Count <> 1 then WScript.Echo "Usage: tcount <filename>" WScript.Quit end if ArgFile = WScript.Arguments.Item(0) Dim InputFile Dim Unsniff Dim Count InputFile = ArgFile Set UnsniffDB = CreateObject("Unsniff.Database") UnsniffDB.Open(InputFile) Count = UnsniffDB.PacketCount UnsniffDB.Close() WScript.Echo "F…