' ' stmdrill - Drilldown show segments in the stream ' ' ----------------------- ' Check usage & arguments ' ----------------------- Set Sout = WScript.StdOut if WScript.Arguments.Count <> 2 then Sout.WriteLine "Usage: stmdrill " WScript.Quit end if InputFile = WScript.Arguments.Item(0) StmID = WScript.Arguments.Item(1) Set UnsniffDB = CreateObject("Unsniff.Database") UnsniffDB.Open(InputFile) Dim StmIndex Set StmIndex = UnsniffDB.StreamIndex Set STM = StmIndex(StmID) Set Packets = STM.Packets Sout.WriteLine "----- STREAM INFO -------" Sout.WriteLine STM.ID & vbTab & STM.StartTimestamp & vbTab &_ STM.SourceAddress & vbTab & STM.DestinationAddress &_ STM.InByteCount & vbTab & STM.OutByteCount & vbTab & STM.Description Sout.WriteLine "----- STREAM CONTENTS (Packets in Stream) -------" For Each Packet In Packets Sout.WriteLine Packet.ID & vbTAB & Packet.Timestamp & vbTab & _ Packet.Length & vbTAB & Packet.Type & vbTAB & _ Packet.Description Next UnsniffDB.Close()