>
VBScript 
' --------------------------------- 
' Get access to the script console 
' --------------------------------- 
Dim Con 
Set Con = CurrentDocument.Console 
Con.TextColor = “#55EE33” 
Con.WriteLine “Packet Printer Demo” 
Con.WriteLine “-------------------“ 
Set SelPacketList = CurrentDocument.SelectedPackets 
For Each Packet In SelPacketList 
   Con.WriteLine Packet.Description 
Next