' 
' PRPUO - Print the User Objects Index 
'

' -----------------------
' Check usage & arguments
' -----------------------
Set Stdout = WScript.StdOut

if WScript.Arguments.Count <> 1 then
	Stdout.WriteLine "Usage: prpuo <filename>"
	WScript.Quit
end if

InputFile  = WScript.Arguments.Item(0)
Set UnsniffDB = CreateObject("Unsniff.Database")

UnsniffDB.Open(InputFile)

Stdout.WriteLine "Filename is " & InputFile

Dim UOIndex
Set UOIndex = UnsniffDB.UserObjectsIndex
For Each UO In UOIndex
	With UO
		If Not .HasError Then
			StdOut.WriteLine .ID & vbTab & .Type & vbTab &_
					 .SenderAddress & vbTab & .ReceiverAddress & vbTab &_
					 .Length & vbTab & .Name & vbTab & .Description 
		End If
	End With
Next
			 
UnsniffDB.Close()