prlayer.vbs
' -----------------
' Declare variables
' -----------------
Set Sout = WScript.Stdout
 
' -----------------------
' Check usage & arguments
' -----------------------
if WScript.Arguments.Count <> 2 then
	Sout.Writeline   "Usage: prlayer <filename> <pktid>"
	WScript.Quit
end if
 
ArgFile  = WScript.Arguments.Item(0)
PktIdx   = WScript.Arguments.Item(1)
 
 
Set UnsniffDB = CreateObject("Unsniff.Database")
UnsniffDB.Open(ArgFile)
 
Sout.Writeline   "Number of packets = " & UnsniffDB.PacketCount
 
Set PacketStore    = UnsniffDB.PacketIndex
Set Packet	   = PacketStore(PktIdx)
 
Sout.Writeline "-- " & Packet.Description
Sout.Writeline "Layer Count = " & Packet.Layers.Count
Sout.Writeline  "Layer" & vbTab & vbTab & "Size " & vbTab & vbTab & "ProtID"
For Each  Layer In Packet.Layers
	Sout.Writeline   Layer.Name & vbTab & vbTab & vbTab & _
			 Layer.Size & vbTab & vbTab & _
			 Layer.ProtID
Next
 
 
UnsniffDB.Close()