prpduidx.vbs
' 
' PRPDUIDX - Print the PDU Index 
'

' -----------------------
' Check usage & arguments
' -----------------------
Set Stdout = WScript.StdOut
 
if WScript.Arguments.Count <> 1 then
	Stdout.WriteLine "Usage: prpduidx <filename>"
	WScript.Quit
end if
 
InputFile  = WScript.Arguments.Item(0)
Set UnsniffDB = CreateObject("Unsniff.Database")
 
UnsniffDB.Open(InputFile)
Count = UnsniffDB.PDUCount
 
Stdout.WriteLine "Filename is " & InputFile
Stdout.WriteLine "Number of PDUs = " & Count
 
Dim PDUIndex
Set PDUIndex = UnsniffDB.PDUIndex
For Each PDU In PDUIndex
	StdOut.WriteLine PDU.ID & vbTab & PDU.Timestamp & vbTab &_
		 	 PDU.Length & vbTab & PDU.Name & vbTab & PDU.Description 
Next
 
UnsniffDB.Close()
unsniff/samples/prpduidx/vbs.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