' -----------------
' Declare variables
' -----------------
Dim ArgFile
Dim WshShell

' -----------------------
' Check usage & arguments
' -----------------------
if WScript.Arguments.Count <> 1 then
	WScript.Echo "Usage: prpidx <filename>"
	WScript.Quit
end if

ArgFile  = WScript.Arguments.Item(0)


Dim InputFile
Dim Unsniff
Dim Count
Dim Packet
Dim PacketStore

InputFile = ArgFile
Set UnsniffDB = CreateObject("Unsniff.Database")

UnsniffDB.Open(InputFile)
Wscript.Echo "Number of packets = " & UnsniffDB.PacketCount

Set PacketStore = UnsniffDB.PacketIndex

For Each Packet In PacketStore
	WScript.Echo    Packet.ID & vbTAB & Packet.Timestamp & vbTab & _
			Packet.Length & vbTAB & Packet.Type & vbTAB & _
			Packet.Description 
Next



UnsniffDB.Close()