unsniff:samples:export3:vbs [Unsniff Scripting]

export3.vbs
' 
' export3 - Exports selected individual packets to a PCAP file
'

 
' -----------------------
' Check usage & arguments
' -----------------------
Set Sout = WScript.StdOut
 
if WScript.Arguments.Count <> 3 then
	Sout.WriteLine "Usage: export3 <packets-csv> <from-filename> <to-filename>"
	WScript.Quit
end if
 
PacketsCSV    = WScript.Arguments.Item(0)
FromFile      = WScript.Arguments.Item(1)
ToFile        = WScript.Arguments.Item(2)
 
Set FromDB = CreateObject("Unsniff.Database")
Set FSO	   = CreateObject("Scripting.FileSystemObject")
 
 
FromDB.Open(FromFile)
 
Dim PktIdxArray 
PktIdxArray = Split(PacketsCSV, ",", -1, 1)
 
'
' Save the specified packets to the target DB
'
Set Packets = FromDB.PacketIndex
 
FromDB.BeginExport "libpcap", ToFile
 
For I = 0 To UBound ( PktIdxArray) 
	Set Packet  = Packets(I)
	FromDB.ExportPacket Packet
Next
 
FromDB.EndExport
 
FromDB.Close()
 
Sout.WriteLine "Exported selected packets to " & ToFile