' ----------------- ' Declare variables ' ----------------- Dim ArgFile Dim WshShell ' ----------------------- ' Check usage & arguments ' ----------------------- if WScript.Arguments.Count <> 1 then WScript.Echo "Usage: tcount " 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 "Filename is " & InputFile Wscript.Echo "Number of packets = " & Count