' -----------------
' Declare variables
' -----------------
Set Sout = WScript.Stdout

' -----------------------
' Check usage & arguments
' -----------------------
if WScript.Arguments.Count <> 2 then
	Sout.Writeline   "Usage: pdudrill <filename> <pduid>"
	WScript.Quit
end if

ArgFile  = WScript.Arguments.Item(0)
PduIdx   = WScript.Arguments.Item(1)


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

Set PDUStore    = UnsniffDB.PDUIndex
Set PDU         = PDUStore(PduIdx)
Set Fields 	= PDU.Fields

For Each Field In Fields
	PrintField 2, Field
Next

UnsniffDB.Close()

Sub PrintField (Indent , Field)
	For I = 1 to Indent
		Sout.Write " "
	Next
	Dim NewIndent
	NewIndent = Indent + 3

	Sout.Write     Field.Name & _
		       " ( " & Field.Value & " )" & _
		       " [  s: " & Field.SizeBits & _
		       "    o: " & Field.OffsetBits & " ]" & vbCrLf

	If Field.SubFieldCount > 0 Then
		For Each SubField in Field.SubFields
			PrintField NewIndent , SubField
		Next
	End If
End Sub