tcount.vbs
' -----------------
' 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 "Filename is " & InputFile
Wscript.Echo "Number of packets = " & Count
unsniff/samples/tcount/vbscript.txt · Last modified: 2014/09/11 23:23 (external edit)
 
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 3.0 Unported
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki