' 
' 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()